From 5b140a070a99937da7c0b1fac9c23b7a281be82f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 17 Jun 2014 06:37:32 -0700 Subject: * eval.c (eval_init): register tuples as intrinsic. * lib.c (tuples_func): New static function. (tuples): New function. * lib.h (tuples): Declared. * txr.1: Documented. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 2720b76a..d9acfda4 100644 --- a/eval.c +++ b/eval.c @@ -3254,6 +3254,7 @@ void eval_init(void) reg_fun(intern(lit("last"), user_package), func_n1(last)); reg_fun(intern(lit("flatten"), user_package), func_n1(flatten)); reg_fun(intern(lit("flatten*"), user_package), func_n1(lazy_flatten)); + reg_fun(intern(lit("tuples"), user_package), func_n3o(tuples, 2)); reg_fun(intern(lit("memq"), user_package), func_n2(memq)); reg_fun(intern(lit("memql"), user_package), func_n2(memql)); reg_fun(intern(lit("memqual"), user_package), func_n2(memqual)); -- cgit v1.2.3