From d51806f15fff2716570d0d9d5887bcadaf4a288b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 28 Mar 2012 14:55:15 -0700
Subject: * lib.c (obj_print, obj_pprint): Do not use the #<lazy-string ..>
 notation for lazy strings that have been forced.

---
 lib.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index d738237e..5737d48e 100644
--- a/lib.c
+++ b/lib.c
@@ -4276,7 +4276,11 @@ val obj_print(val obj, val out)
     }
     return obj;
   case LSTR:
-    format(out, lit("#<lazy-string: ~s>"), obj->ls.prefix, nao);
+    if (obj->ls.list)
+      format(out, lit("#<lazy-string: ~s (~s ...)>"), obj->ls.prefix,
+             obj->ls.list, nao);
+    else
+      obj_print(obj->ls.prefix, out);
     return obj;
   case COBJ:
     obj->co.ops->print(obj, out);
@@ -4373,7 +4377,11 @@ val obj_pprint(val obj, val out)
     }
     return obj;
   case LSTR:
-    format(out, lit("#<lazy-string: ~a>"), obj->ls.prefix, nao);
+    if (obj->ls.list)
+      format(out, lit("#<lazy-string: ~s (~s ...)>"), obj->ls.prefix,
+             obj->ls.list, nao);
+    else
+      obj_pprint(obj->ls.prefix, out);
     return obj;
   case COBJ:
     obj->co.ops->print(obj, out);
-- 
cgit v1.2.3