From ff5568389c037f7c7b5dff9505c69e7f586f95aa Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 16 Jul 2013 03:38:27 -0400 Subject: flonum? returns false for complex number objects. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes . Reported by Göran Weinholt . * module/rnrs/arithmetic/flonums.scm (flonum?): Use 'real?' instead of 'number?'. * test-suite/tests/r6rs-arithmetic-flonums.test (flonum?): Add tests. --- module/rnrs/arithmetic/flonums.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module/rnrs') 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) -- cgit v1.2.3