diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-12-07 06:45:05 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-12-07 06:45:05 -0800 |
commit | 078819a0ae62eaa981a271e127ecbcf2ce0a435f (patch) | |
tree | 1b87721616ab2868628bed3721e69b8e2df40477 /eval.c | |
parent | 4534279ab8e0739c8d1b5eab9bdc00b829724e0f (diff) | |
download | txr-078819a0ae62eaa981a271e127ecbcf2ce0a435f.tar.gz txr-078819a0ae62eaa981a271e127ecbcf2ce0a435f.tar.bz2 txr-078819a0ae62eaa981a271e127ecbcf2ce0a435f.zip |
rot, nrot: new functions.
* eval.c (eval_init): nrot, rot intrinsics registered.
* lib.c (nrot, rot): New functions.
* lib.h (nrot, rot): Declared.
* tests/012/seq.tl: New test cases.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -7019,6 +7019,8 @@ void eval_init(void) reg_fun(intern(lit("unique"), user_package), func_n2ov(unique, 1)); reg_fun(intern(lit("uniq"), user_package), func_n1(uniq)); reg_fun(intern(lit("grade"), user_package), func_n3o(grade, 1)); + reg_fun(intern(lit("nrot"), user_package), func_n2o(nrot, 1)); + reg_fun(intern(lit("rot"), user_package), func_n2o(rot, 1)); reg_var(intern(lit("*param-macro*"), user_package), pm_table); |