diff options
Diffstat (limited to 'module/rnrs/arithmetic/flonums.scm')
-rw-r--r-- | module/rnrs/arithmetic/flonums.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/rnrs/arithmetic/flonums.scm b/module/rnrs/arithmetic/flonums.scm index 558b0afd0..60d6cf6e2 100644 --- a/module/rnrs/arithmetic/flonums.scm +++ b/module/rnrs/arithmetic/flonums.scm @@ -66,7 +66,7 @@ (rnrs lists (6)) (rnrs r5rs (6))) - (define (flonum? obj) (and (number? obj) (inexact? obj))) + (define (flonum? obj) (and (real? obj) (inexact? obj))) (define (assert-flonum . args) (or (for-all flonum? args) (raise (make-assertion-violation)))) (define (assert-iflonum . args) |