* arith.c (logand, logior, logxor): Bugfix: result needs to be

normalized, otherwise we end up with fixnum-range bignums.
(comp_clamp): New function.
(logcomp): Changed to two argument form. If second argument
is present (not nil) then call comp_clamp.

* eval.c (eval_init): Change registration of logcomp to allow
optional argument.

* lib.h (logcomp): Declaration updated.

* mpi-patches/add-bitops:  New mp_clamp_comp function implemented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 331c2fb4..91cca628 100644
--- a/lib.h
+++ b/lib.h
@@ -474,7 +474,7 @@ val expo(val);
 val logand(val, val);
 val logior(val, val);
 val logxor(val, val);
-val logcomp(val);
+val logcomp(val, val);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);