mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

flonum? returns false for complex number objects.

Browse source 
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.
This commit is contained in:
Mark H Weaver 2013-07-16 03:38:27 -04:00
parent 62460767e1
commit ff5568389c
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/rnrs/arithmetic/flonums.scm
View file

@ -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)

5
test-suite/tests/r6rs-arithmetic-flonums.test
View file

@ -30,7 +30,10 @@
(pass-if "flonum? is #t on flonum"
(flonum? 1.5))
(pass-if "flonum? is #f on non-flonum"
(pass-if "flonum? is #f on complex"
(not (flonum? 1.5+0.0i)))
(pass-if "flonum? is #f on exact integer"
(not (flonum? 3))))
(with-test-prefix "real->flonum"