diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-24 10:44:10 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-24 10:44:10 -0800 |
commit | 19fb18a343d88621ebab989539a3463b1ffbba7d (patch) | |
tree | bde4ced4fea3ab7b347a0176dc9f5a46ace7b49b /eval.c | |
parent | 71bd153f6efd3cc3157bb9dbdf55c97b6e0ad2f5 (diff) | |
download | txr-19fb18a343d88621ebab989539a3463b1ffbba7d.tar.gz txr-19fb18a343d88621ebab989539a3463b1ffbba7d.tar.bz2 txr-19fb18a343d88621ebab989539a3463b1ffbba7d.zip |
New memp function for searching a plist.
* eval.c (eval_init): Register memp intrinsic.
* lib.c (memp): New function.
* lib.h (memp): Declared.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5800,6 +5800,7 @@ void eval_init(void) reg_fun(intern(lit("copy-cons"), user_package), func_n1(copy_cons)); reg_fun(intern(lit("copy-alist"), user_package), func_n1(copy_alist)); reg_fun(intern(lit("prop"), user_package), func_n2(getplist)); + reg_fun(intern(lit("memp"), user_package), func_n2(memp)); reg_fun(intern(lit("merge"), user_package), func_n4o(merge_wrap, 2)); reg_fun(intern(lit("sort"), user_package), func_n3o(sort, 1)); reg_fun(intern(lit("shuffle"), user_package), func_n1(shuffle)); |