Bugfix: lazy str printing not observing limit.

* lib.c (lazy_str_put, out_lazy_str): Decrement lim
variable in loop body.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index dca1b9de..32d5b5e7 100644
--- a/lib.c
+++ b/lib.c
@@ -6339,6 +6339,8 @@ val lazy_str_put(val lstr, val stream)
     val str = car(iter);
     if (!str)
       break;
+    if (lim)
+      lim = pred(lim);
     put_string(str, stream);
     put_string(term, stream);
   }
@@ -8401,6 +8403,8 @@ static void out_lazy_str(val lstr, val out)
       break;
     out_str_pretty(c_str(str), out, &semi_flag);
     out_str_pretty(wcterm, out, &semi_flag);
+    if (lim)
+      lim = pred(lim);
   }
 
   put_char(chr('"'), out);