number? includes a check for bignums (issue #19)

This commit is contained in:
Alex Shinn 2009-12-29 18:45:22 +09:00
parent 5227209ff8
commit 7e0464154a

View file

@ -421,7 +421,7 @@
;; math utils
(define (number? x) (if (fixnum? x) #t (flonum? x)))
(define (number? x) (if (fixnum? x) #t (if (bignum? x) #t (flonum? x))))
(define complex? number?)
(define rational? number?)
(define real? number?)