summaryrefslogtreecommitdiff
path: root/module/rnrs/arithmetic
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-07-16 03:38:27 -0400
committerMark H Weaver <mhw@netris.org>2013-07-16 03:57:41 -0400
commitff5568389c037f7c7b5dff9505c69e7f586f95aa (patch)
tree9f7a180a1be3ea214a35192324336740938f1c18 /module/rnrs/arithmetic
parent62460767e133b4516c30920a4ba705889fb99f18 (diff)
downloadguile-ff5568389c037f7c7b5dff9505c69e7f586f95aa.tar.gz
flonum? returns false for complex number objects.
Fixes <http://bugs.gnu.org/14866>. Reported by Göran Weinholt <goran@weinholt.se>. * module/rnrs/arithmetic/flonums.scm (flonum?): Use 'real?' instead of 'number?'. * test-suite/tests/r6rs-arithmetic-flonums.test (flonum?): Add tests.
Diffstat (limited to 'module/rnrs/arithmetic')
-rw-r--r--module/rnrs/arithmetic/flonums.scm2
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)