From ff2df257b64111213fd94028d2f18b75ebdee003 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 21 Jun 2021 06:37:50 -0700 Subject: 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. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index bdbec0be..23579af3 100644 --- a/eval.c +++ b/eval.c @@ -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)); -- cgit v1.2.3