mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
1ecf7f9c8a
SRFI-144 requires that (flmin) returns +inf.0 and that (flmax) returns -inf.0, so these procedures can't really be aliases to the Chibi implementation of R7RS max and min.
49 lines
1.1 KiB
Scheme
49 lines
1.1 KiB
Scheme
|
|
(define fl=? =)
|
|
(define fl<? <)
|
|
(define fl>? >)
|
|
(define fl<=? <=)
|
|
(define fl>=? >=)
|
|
(define flodd? odd?)
|
|
(define fleven? even?)
|
|
(define (flunordered? x y) (or (flnan? x) (flnan? y)))
|
|
(define flinteger? integer?)
|
|
(define flzero? zero?)
|
|
(define flpositive? positive?)
|
|
(define flnegative? negative?)
|
|
(define flonum exact->inexact)
|
|
|
|
(define fl+ +)
|
|
(define fl- -)
|
|
(define fl* *)
|
|
(define fl/ /)
|
|
(define (flmax . args) (if (null? args) -inf.0 (apply max args)))
|
|
(define (flmin . args) (if (null? args) +inf.0 (apply min args)))
|
|
(define (flabsdiff x y) (abs (- x y)))
|
|
(define flnumerator numerator)
|
|
(define fldenominator denominator)
|
|
(define flround round)
|
|
|
|
(define (flsquare x) (fl* x x))
|
|
|
|
(define (flsgn x) (flcopysign 1.0 x))
|
|
|
|
(define (fldenormalized? x)
|
|
(eqv? FP_SUBNORMAL (fpclassify x)))
|
|
|
|
(define (flatan x . o)
|
|
(if (pair? o)
|
|
(flatan2 x (car o))
|
|
(flatan1 x)))
|
|
|
|
(define (flinteger-fraction x)
|
|
(let ((ls (modf x))) (values (cadr ls) (car ls))))
|
|
|
|
(define (flnormalized-fraction-exponent x)
|
|
(apply values (frexp x)))
|
|
|
|
(define (flremquo x y)
|
|
(apply values (remquo x y)))
|
|
|
|
(define (flloggamma x)
|
|
(apply values (lgamma_r x)))
|