bits: external linkage.

* arith.c (bits): Change the linkage from
internal to external.

* arith.h (bits): Declared.

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);