From 85b32d43e63bd2939ce3706f44a50f153ba01a46 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 16 Jul 2013 03:42:52 -0400 Subject: flfinite? applied to a NaN returns false. 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 (flfinite?): If the argument is a NaN, return false. * test-suite/tests/r6rs-arithmetic-flonums.test (flfinite?): Add test. --- 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 60d6cf6e2..be59295a7 100644 --- a/module/rnrs/arithmetic/flonums.scm +++ b/module/rnrs/arithmetic/flonums.scm @@ -89,7 +89,7 @@ (define (flnegative? fl) (assert-flonum fl) (negative? fl)) (define (flodd? ifl) (assert-iflonum ifl) (odd? ifl)) (define (fleven? ifl) (assert-iflonum ifl) (even? ifl)) - (define (flfinite? fl) (assert-flonum fl) (not (inf? fl))) + (define (flfinite? fl) (assert-flonum fl) (not (or (inf? fl) (nan? fl)))) (define (flinfinite? fl) (assert-flonum fl) (inf? fl)) (define (flnan? fl) (assert-flonum fl) (nan? fl)) -- cgit v1.2.3