diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-09-19 11:23:31 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-09-19 11:23:31 -0700 |
commit | 4c066cf5782381ca49de86af2ea07e2a259a8b64 (patch) | |
tree | a84311f76d803841f44b99714401c419e50906da /eval.c | |
parent | 4be9838bd95543911ab72cb68baf8fc85d63b586 (diff) | |
download | txr-4c066cf5782381ca49de86af2ea07e2a259a8b64.tar.gz txr-4c066cf5782381ca49de86af2ea07e2a259a8b64.tar.bz2 txr-4c066cf5782381ca49de86af2ea07e2a259a8b64.zip |
Adding flatcar* function.
* eval.c (eval_init): Registered flatcar* intrinsic.
* lib.c (lazy_flatcar_scan, lazy_flatcar_func):
New static functions.
(lazy_flatcar): New function.
* lib.h (lazy_flatcar): Declared.
* txr.1: Documented, also touching flatten documentation.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -4212,6 +4212,7 @@ void eval_init(void) reg_fun(intern(lit("flatten"), user_package), func_n1(flatten)); reg_fun(intern(lit("flatten*"), user_package), func_n1(lazy_flatten)); reg_fun(intern(lit("flatcar"), user_package), func_n1(flatcar)); + reg_fun(intern(lit("flatcar*"), user_package), func_n1(lazy_flatcar)); reg_fun(intern(lit("tuples"), user_package), func_n3o(tuples, 2)); reg_fun(intern(lit("partition-by"), user_package), func_n2(partition_by)); reg_fun(intern(lit("partition"), user_package), func_n2(partition)); |