* arith.c (bit): New function.

* eval.c (eval_init): Register bit as intrinsic.

* lib.h (bit): Declared.

* mpi-patches/add-bitops (mp_bit): New function.

* txr.1: Documented bit

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 2a07d982..a20382da 100644
--- a/lib.h
+++ b/lib.h
@@ -553,6 +553,7 @@ val logtest(val, val);
 val lognot(val, val);
 val logtrunc(val a, val bits);
 val ash(val a, val bits);
+val bit(val a, val bit);
 val maskv(val bits);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);