number->string now returns a fresh string for 0.
This commit is contained in:
parent
771b9699b5
commit
b2d67a552d
|
@ -386,7 +386,7 @@
|
||||||
(define $fixnum->string
|
(define $fixnum->string
|
||||||
(lambda (x radix)
|
(lambda (x radix)
|
||||||
(cond
|
(cond
|
||||||
[($fxzero? x) "0"]
|
[($fxzero? x) (string #\0)]
|
||||||
[($fx> x 0)
|
[($fx> x 0)
|
||||||
(call-with-values
|
(call-with-values
|
||||||
(lambda () (f x 0 0 radix))
|
(lambda () (f x 0 0 radix))
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1296
|
1297
|
||||||
|
|
Loading…
Reference in New Issue