lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename print_circle_prefix -> write_cycle_prefix

This commit is contained in:
Lassi Kortela 2019-08-25 13:20:30 +03:00
parent 84c10258b3
commit 96962da3d3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
c/print.h
View File

@ -371,7 +371,7 @@ static void print_pair(struct ios *f, value_t v)
static void cvalue_print(struct ios *f, value_t v); static void cvalue_print(struct ios *f, value_t v);
static int print_circle_prefix(struct ios *f, value_t v) static int write_cycle_prefix(struct ios *f, value_t v)
{ {
value_t label; value_t label;
@ -433,7 +433,7 @@ void fl_print_child(struct ios *f, value_t v)
char *data; char *data;
size_t i, sz; size_t i, sz;
if (print_circle_prefix(f, v)) if (write_cycle_prefix(f, v))
break; break;
fn = (struct function *)ptr(v); fn = (struct function *)ptr(v);
outs("#fn(", f); outs("#fn(", f);
@ -469,7 +469,7 @@ void fl_print_child(struct ios *f, value_t v)
case TAG_CVALUE: case TAG_CVALUE:
case TAG_VECTOR: case TAG_VECTOR:
case TAG_CONS: case TAG_CONS:
if (print_readably && print_circle_prefix(f, v)) if (print_readably && write_cycle_prefix(f, v))
break; break;
if (isvector(v)) { if (isvector(v)) {
int newindent, est, sz, i; int newindent, est, sz, i;