diff options
-rw-r--r-- | arith.c | 3 | ||||
-rw-r--r-- | arith.h | 1 |
2 files changed, 2 insertions, 2 deletions
@@ -2767,12 +2767,11 @@ val width(val obj) uw_throwf(error_s, lit("integer-length: ~s isn't an integer"), obj, nao); } -static val bits(val obj) +val bits(val obj) { return normalize(bignum_from_uintptr(coerce(uint_ptr_t, obj))); } - void arith_init(void) { mp_init(&NUM_MAX_MP); @@ -44,5 +44,6 @@ val toint(val obj, val base); val tofloatz(val obj); val tointz(val obj, val base); val width(val num); +val bits(val obj); void arith_init(void); void arith_free_all(void); |