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

View File

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