summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-07-19 09:09:13 -0700
committerKaz Kylheku <kaz@kylheku.com>2014-07-19 09:09:13 -0700
commit74880de58e4f3ae6e0a84187f92e6853c37aa64e (patch)
tree64904f35f9d7279cb437866bdfe9deb501ef798f /eval.c
parent614ec6640e3232edfea2614ef290ffcb7ffbae7f (diff)
downloadtxr-74880de58e4f3ae6e0a84187f92e6853c37aa64e.tar.gz
txr-74880de58e4f3ae6e0a84187f92e6853c37aa64e.tar.bz2
txr-74880de58e4f3ae6e0a84187f92e6853c37aa64e.zip
* eval.c (eval_init): Register get-lines as a synonym for lazy-stream-cons.
* stream.c (get_string): New function. * stream.h (get_string): Declared. (stream_init): get_string registered as get-string intrinsic. * txr.1: Documented get-string, and get-lines as a synonym for lazy-stream-cons. Documented the behavioral difference of lazy-stream-cons lazy lists for real-time and non-real-time streams.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index b5ded23a..c071843d 100644
--- a/eval.c
+++ b/eval.c
@@ -3774,6 +3774,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("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));