diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-21 06:37:50 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-21 06:37:50 -0700 |
| commit | ff2df257b64111213fd94028d2f18b75ebdee003 (patch) | |
| tree | 45cf0a063bfc829c6e619fb8482a215f4884f2ed /eval.c | |
| parent | 4605d81ba9ef004e1a0e660ccd5d42717c4c6523 (diff) | |
| download | txr-ff2df257b64111213fd94028d2f18b75ebdee003.tar.gz txr-ff2df257b64111213fd94028d2f18b75ebdee003.tar.bz2 txr-ff2df257b64111213fd94028d2f18b75ebdee003.zip | |
Dubious new functions cxr/cyr.
* lib.c (cxr, cyr): New functions.
* lib.h (cxr, cyr): Declared.
* eval.c (eval_init): Intrinsics cxr and cyr registered.
* tests/012/cadr.tl: New file.
* txr.1: Documented.
* share/txr/stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -6740,6 +6740,8 @@ void eval_init(void) reg_fun(intern(lit("eighth"), user_package), func_n1(eighth)); reg_fun(intern(lit("ninth"), user_package), func_n1(ninth)); reg_fun(intern(lit("tenth"), user_package), func_n1(tenth)); + reg_fun(intern(lit("cxr"), user_package), func_n2(cxr)); + reg_fun(intern(lit("cyr"), user_package), func_n2(cyr)); reg_fun(intern(lit("conses"), user_package), func_n1(conses)); reg_fun(intern(lit("conses*"), user_package), func_n1(lazy_conses)); reg_fun(intern(lit("copy-list"), user_package), func_n1(copy_list)); |