Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing number->string for non-full-numeric-tower builds

Browse source
This commit is contained in:
Alex Shinn 2016-03-30 22:33:29 +09:00
parent 0c80f38a19
commit 1ec9d578d0
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -1097,6 +1097,7 @@
(define (exact-complex? x) (define (exact-complex? x)
(and (%complex? x) (exact? (complex-real x)) (exact? (complex-imag x))))) (and (%complex? x) (exact? (complex-real x)) (exact? (complex-imag x)))))
(else (else
(define (%complex? x) #f)
(define (exact-complex? x) #f))) (define (exact-complex? x) #f)))
(cond-expand (cond-expand
@ -1122,6 +1123,7 @@
1.0 1.0
(exact->inexact (denominator (inexact->exact x))))))) (exact->inexact (denominator (inexact->exact x)))))))
(else (else
(define (ratio? x) #f)
(cond-expand (cond-expand
(complex (complex
(define (exact? x) (define (exact? x)