shithub: femtolisp

Info  •  Files  •  Log  •  Branches

don't print-circle in `princ` mode

--- a/print.c

+++ b/print.c

@@ -449,7 +449,7 @@

     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 @@

     P_LEVEL = 0;

     printlabel = 0;

-    print_traverse(v);

+    if (!print_princ) print_traverse(v);

     HPOS = VPOS = 0;

     fl_print_child(f, v);