don't print-circle in `princ` mode

This commit is contained in:
Jeff Bezanson 2017-08-19 14:19:56 -04:00
parent 74d4de6ad5
commit bc646bd7a1
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_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);