* eval.c (eval_init): register get-lines as having one optional

argument.

* lib.c (lazy_stream_cons): Default the argument to std_input.

* txr.1: Document that the stream is optional in get-lines.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 5b8dcad8..c4196e72 100644
--- a/eval.c
+++ b/eval.c
@@ -4226,7 +4226,7 @@ void eval_init(void)
   reg_fun(intern(lit("break-str"), user_package), func_n2(break_str));
 
   reg_fun(intern(lit("lazy-stream-cons"), user_package), func_n1(lazy_stream_cons));
-  reg_fun(intern(lit("get-lines"), user_package), func_n1(lazy_stream_cons));
+  reg_fun(intern(lit("get-lines"), user_package), func_n1o(lazy_stream_cons, 0));
   reg_fun(intern(lit("lazy-str"), user_package), func_n3o(lazy_str, 1));
   reg_fun(intern(lit("lazy-stringp"), user_package), func_n1(lazy_stringp));
   reg_fun(intern(lit("lazy-str-force-upto"), user_package), func_n2(lazy_str_force_upto));