Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

compute least double properly (issue #831)

Browse source
This commit is contained in:
Alex Shinn 2022-05-14 16:30:27 +09:00
parent 09200ae13c
commit 42332bb04f
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/srfi/144/math.stub
View file

@ -1,6 +1,15 @@
(c-system-include "math.h") (c-system-include "math.h")
(c-declare "
double sexp_compute_least_double(double f) {
for (double g = f/2; g < f && g > 0; g /= 2) {
f = g;
}
return f;
}
")
(define-c-const double (define-c-const double
(fl-e "M_E") (fl-e "M_E")
(fl-1/e "1.0/M_E") (fl-1/e "1.0/M_E")
@ -43,7 +52,7 @@
(fl-gamma-1/3 "tgamma(1.0/3.0)") (fl-gamma-1/3 "tgamma(1.0/3.0)")
(fl-gamma-2/3 "tgamma(2.0/3.0)") (fl-gamma-2/3 "tgamma(2.0/3.0)")
(fl-greatest "DBL_MAX") (fl-greatest "DBL_MAX")
(fl-least "-DBL_MAX") (fl-least "sexp_compute_least_double(DBL_MIN)")
(fl-integer-exponent-zero "FP_ILOGB0") (fl-integer-exponent-zero "FP_ILOGB0")
(fl-integer-exponent-nan "FP_ILOGBNAN") (fl-integer-exponent-nan "FP_ILOGBNAN")
(fl-epsilon "DBL_EPSILON")) (fl-epsilon "DBL_EPSILON"))