summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--arith.c3
-rw-r--r--arith.h1
2 files changed, 2 insertions, 2 deletions
diff --git a/arith.c b/arith.c
index a4a65ad7..62fdea53 100644
--- a/arith.c
+++ b/arith.c
@@ -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);
diff --git a/arith.h b/arith.h
index 8961c571..32c19272 100644
--- a/arith.h
+++ b/arith.h
@@ -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);