From fa73ead6108ce8e82828047ca3cb5e692a05103e Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <jeff.bezanson@gmail.com>
Date: Sat, 19 Aug 2017 14:19:56 -0400
Subject: [PATCH] don't print-circle in `princ` mode

---
 print.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/print.c b/print.c
index 1b17bad..b749853 100644
--- a/print.c
+++ b/print.c
@@ -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);