summaryrefslogtreecommitdiffstats
path: root/arith.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-12-21 15:40:22 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-12-21 15:40:22 -0800
commitb4b045a8e7c65783d94812553e31ae0282e80cc4 (patch)
treedf16340ae5e8280f0ecdc36d2c7697fc478b96ec /arith.c
parent13a8820a0979787bd16f530a400da69c798e954e (diff)
downloadtxr-b4b045a8e7c65783d94812553e31ae0282e80cc4.tar.gz
txr-b4b045a8e7c65783d94812553e31ae0282e80cc4.tar.bz2
txr-b4b045a8e7c65783d94812553e31ae0282e80cc4.zip
* arith.c (normalize): Linkage changed to extern.
* arith.h (normalize): Declared. * rand.c (random): Bugfix: normalize the bignum before returning it. * txr.1: Doc stubs for PRNG functionality.
Diffstat (limited to 'arith.c')
-rw-r--r--arith.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/arith.c b/arith.c
index 14696c24..8429f486 100644
--- a/arith.c
+++ b/arith.c
@@ -73,7 +73,7 @@ static val bignum_dbl_ipt(double_intptr_t di)
return n;
}
-static val normalize(val bignum)
+val normalize(val bignum)
{
if (mp_cmp_mag(mp(bignum), &NUM_MAX_MP) == MP_GT) {
return bignum;