From 078819a0ae62eaa981a271e127ecbcf2ce0a435f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 7 Dec 2021 06:45:05 -0800 Subject: 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. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 6d2fd11c..4e640923 100644 --- a/eval.c +++ b/eval.c @@ -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); -- cgit v1.2.3