From f852a574e4a33ae81d257eb372d2d6947625d81e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 20 Apr 2016 05:22:08 -0700
Subject: Bugfix: optional arg defaulting in get-string.

* stream.c (get_string): The optional stream argument
must be treated accordingly.
---
 stream.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/stream.c b/stream.c
index 31a3accc..774359f4 100644
--- a/stream.c
+++ b/stream.c
@@ -3325,8 +3325,9 @@ val width_check(val stream, val alt)
   return t;
 }
 
-val get_string(val stream, val nchars, val close_after_p)
+val get_string(val stream_in, val nchars, val close_after_p)
 {
+  val stream = default_arg(stream_in, std_input);
   val strstream = make_string_output_stream();
   nchars = default_bool_arg(nchars);
   val ch;
-- 
cgit v1.2.3