From 051bf360110a5b9649fe9a2b5b35b2dcfed868d6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 28 Mar 2015 07:34:01 -0700
Subject: * 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.
---
eval.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'eval.c')
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));
--
cgit v1.2.3