* stream.c (inc_indent): If a negative indentation increment goes below

zero, clamp it at zero.
(set_indent): Clamp indentation value to zero.

1 files changed, 4 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index a44db8db..7d425d38 100644
--- a/stream.c
+++ b/stream.c
@@ -2686,6 +2686,8 @@ val set_indent(val stream, val indent)
                                cobj_handle(stream, stream_s));
   val oldval = num(s->indent_chars);
   s->indent_chars = c_num(indent);
+  if (s->indent_chars < 0)
+    s->indent_chars = 0;
   return oldval;
 }
 
@@ -2696,6 +2698,8 @@ val inc_indent(val stream, val delta)
   val oldval = num(s->indent_chars);
   val col = num(s->column);
   s->indent_chars = c_num(plus(delta, col));
+  if (s->indent_chars < 0)
+    s->indent_chars = 0;
   return oldval;
 }