summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-04 00:17:18 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-04 00:17:18 +0000
commitc8a1bdc460f892847d0fb3f1321cdeb305160bf8 (patch)
tree5095a98a73d57cf0ce9ed56ed93b8c27bf7527e7 /libguile/numbers.c
parentc3164ca85ed8c43a1732a828fc299a05d556a1f3 (diff)
downloadguile-c8a1bdc460f892847d0fb3f1321cdeb305160bf8.tar.gz
new gc
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 09b81c7da..53a40a0bd 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -2288,6 +2288,12 @@ big2str (SCM b, unsigned int radix)
SCM_BIGDIG radpow = 1, radmod = 0;
SCM ss = scm_allocate_string (j);
char *s = SCM_STRING_CHARS (ss), c;
+
+ if (i == 0)
+ {
+ return scm_makfrom0str ("0");
+ }
+
while ((long) radpow * radix < SCM_BIGRAD)
{
radpow *= radix;