diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-07-19 09:09:13 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-07-19 09:09:13 -0700 |
commit | 74880de58e4f3ae6e0a84187f92e6853c37aa64e (patch) | |
tree | 64904f35f9d7279cb437866bdfe9deb501ef798f /eval.c | |
parent | 614ec6640e3232edfea2614ef290ffcb7ffbae7f (diff) | |
download | txr-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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)); |