From 7c6f1e1ecbd635eb328f6b3e1ebd0b22f9d71594 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 24 May 2017 07:19:46 -0700
Subject: bits: external linkage.

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

* arith.h (bits): Declared.
---
 arith.c | 3 +--
 arith.h | 1 +
 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);
-- 
cgit v1.2.3