number->string now returns a fresh string for 0.

2007-12-30 18:37:37 -05:00 · 2007-12-30 18:37:37 -05:00 · b2d67a552d
parent 771b9699b5
commit b2d67a552d
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.fixnums.ss
+++ b/scheme/ikarus.fixnums.ss
@ -386,7 +386,7 @@
    (define $fixnum->string
      (lambda (x radix)
        (cond
-          [($fxzero? x) "0"]
+          [($fxzero? x) (string #\0)]
          [($fx> x 0)
           (call-with-values
             (lambda () (f x 0 0 radix))
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1296
+1297