New function: bitset.

* arith.c (bitset_s): New symbol variable.
(bitset): New function.
(arith_init): bitset_s initialized, bitset intrinsic
registered.

* lib.h (bitset): Declared.

* txr.1: Documented bitset function and method.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 6189d225..9bcf2b22 100644
--- a/lib.h
+++ b/lib.h
@@ -796,6 +796,7 @@ val ash(val a, val bits);
 val bit(val a, val bit);
 val maskv(struct args *bits);
 val logcount(val n);
+val bitset(val n);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);