diff --git a/lib/srfi/144.sld b/lib/srfi/144.sld index 0b8861ee..2323045e 100644 --- a/lib/srfi/144.sld +++ b/lib/srfi/144.sld @@ -25,7 +25,8 @@ fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10 fl-1/sqrt-2 fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi fl-1/log-phi fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least - fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+* + fl-epsilon fl-integer-exponent-zero fl-integer-exponent-nan + fl-fast-+* flonum flonum? fl=? fl? fl<=? fl>=? flodd? fleven? flunordered? flinteger? flzero? flpositive? flnegative? diff --git a/lib/srfi/144/math.stub b/lib/srfi/144/math.stub index 8e7cef37..b6ebf5d5 100644 --- a/lib/srfi/144/math.stub +++ b/lib/srfi/144/math.stub @@ -33,7 +33,8 @@ (fl-greatest "DBL_MAX") (fl-least "-DBL_MAX") (fl-integer-exponent-zero "FP_ILOGB0") - (fl-integer-exponent-nan "FP_ILOGBNAN")) + (fl-integer-exponent-nan "FP_ILOGBNAN") + (fl-epsilon "DBL_EPSILON")) (define-c-const int FP_SUBNORMAL)