diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-04 00:17:18 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-04 00:17:18 +0000 |
commit | c8a1bdc460f892847d0fb3f1321cdeb305160bf8 (patch) | |
tree | 5095a98a73d57cf0ce9ed56ed93b8c27bf7527e7 /libguile/numbers.c | |
parent | c3164ca85ed8c43a1732a828fc299a05d556a1f3 (diff) | |
download | guile-c8a1bdc460f892847d0fb3f1321cdeb305160bf8.tar.gz |
new gc
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 6 |
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; |