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.

1 files changed, 1 insertions, 0 deletions

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));