From 20a8ba5e5d546d8962802447d40636ec0cf299c8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 16 Sep 2012 20:18:57 -0700 Subject: Adding complementing function. * arith.c (logcomp): New function. * eval.c (eval_init): logcomp registered as intrinsic. * lib.h (logcomp) declared. * mpi-patches/add-bitops: Fixed bugs in mp_xor. Implemented mp_comp. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 786fc0d4..e075555d 100644 --- a/eval.c +++ b/eval.c @@ -2234,6 +2234,7 @@ void eval_init(void) reg_fun(intern(lit("logand"), user_package), func_n2(logand)); reg_fun(intern(lit("logior"), user_package), func_n2(logior)); reg_fun(intern(lit("logxor"), user_package), func_n2(logxor)); + reg_fun(intern(lit("logcomp"), user_package), func_n1(logcomp)); reg_fun(intern(lit("regex-compile"), user_package), func_n1(regex_compile)); reg_fun(intern(lit("regexp"), user_package), func_n1(regexp)); -- cgit v1.2.3