mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
6 lines
144 B
Scheme
6 lines
144 B
Scheme
|
|
(define (finite? x)
|
|
(and (real? x) (not (nan? x)) (not (= x +inf.0)) (not (= x -inf.0))))
|
|
|
|
(define (nan? x)
|
|
(and (real? x) (not (= x x))))
|