logxor: fix seriously broken function.

Reported by Guillaume le Vaillant.

* arith.c (logxor): Fix broken behavior when the arguments are
the same nonzero fixnum, or the same bignum object.
(logxor_old): New function: verbatim copy of previous logxor.

* eval.c (eval_init): Register logxor intrinsic to the broken
function if compatibility is 202 or less.

* txr.1: Compat note added.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index be25d684..14882390 100644
--- a/lib.h
+++ b/lib.h
@@ -749,6 +749,7 @@ val logior(val, val);
 val logandv(struct args *nlist);
 val logiorv(struct args *nlist);
 val logxor(val, val);
+val logxor_old(val, val);
 val logtest(val, val);
 val lognot(val, val);
 val logtrunc(val a, val bits);