From 778e6a4bf0c9d3d497e6315ac42f5938afb2e771 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Mar 2016 06:42:00 -0700
Subject: Bugfix: lazy str printing not observing limit.
* lib.c (lazy_str_put, out_lazy_str): Decrement lim
variable in loop body.
---
lib.c | 4 ++++
1 file changed, 4 insertions(+)
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);
--
cgit v1.2.3