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

don't print-circle in `princ` mode

This commit is contained in:
Jeff Bezanson 2017-08-19 14:19:56 -04:00 committed by Lassi Kortela
parent 6a0a16c960
commit fa73ead610
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
print.c
View File

@ -449,7 +449,7 @@ void fl_print_child(ios_t *f, value_t v)
case TAG_CVALUE: case TAG_CVALUE:
case TAG_VECTOR: case TAG_VECTOR:
case TAG_CONS: case TAG_CONS:
if (print_circle_prefix(f, v)) break; if (!print_princ && print_circle_prefix(f, v)) break;
if (isvector(v)) { if (isvector(v)) {
outc('[', f); outc('[', f);
int newindent = HPOS, est; int newindent = HPOS, est;
@ -858,7 +858,7 @@ void fl_print(ios_t *f, value_t v)
P_LEVEL = 0; P_LEVEL = 0;
printlabel = 0; printlabel = 0;
print_traverse(v); if (!print_princ) print_traverse(v);
HPOS = VPOS = 0; HPOS = VPOS = 0;
fl_print_child(f, v); fl_print_child(f, v);