diff options
| author | Shiro Kawai <shiro@acm.org> | 2024-03-05 23:28:24 -1000 |
|---|---|---|
| committer | Shiro Kawai <shiro@acm.org> | 2024-03-05 23:35:53 -1000 |
| commit | b75b9a5e885c13eb4a4440abd08fedb0180ffa78 (patch) | |
| tree | a5509e2f9e50b05229683ff60f00181aacec9e5b | |
| parent | 32924e61f89a0f51340ee969db008801ad158313 (diff) | |
Revise fl-{greatest|least} definition using new built-ins
| -rw-r--r-- | ext/scheme/flonum.scm | 4 | ||||
| -rw-r--r-- | lib/gauche/numutil.scm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/scheme/flonum.scm b/ext/scheme/flonum.scm index 3c7755276..cb38c16ff 100644 --- a/ext/scheme/flonum.scm +++ b/ext/scheme/flonum.scm @@ -119,8 +119,8 @@ (define-constant fl-gamma-1/3 2.67893853470774763); (gamma 1/3) yields 1ulp error (define-constant fl-gamma-2/3 (gamma 2/3)) -(define-constant fl-greatest (encode-float `#(,(- (expt 2 53) 1) 971 1))) -(define-constant fl-least (encode-float '#(1 -1074 1))) +(define-constant fl-greatest (greatest-positive-flonum)) +(define-constant fl-least (least-positive-flonum)) (define-constant fl-epsilon (flonum-epsilon)) (define-constant fl-fast-fl+* #t) diff --git a/lib/gauche/numutil.scm b/lib/gauche/numutil.scm index 6f2ded418..ec01acb3e 100644 --- a/lib/gauche/numutil.scm +++ b/lib/gauche/numutil.scm @@ -359,7 +359,7 @@ ;; (Unofficial yet; see how it works) (define (approx=? x y :optional (relative-tolerance (flonum-epsilon)) - (absolute-tolerance (flonum-min-denormalized))) + (absolute-tolerance (least-positive-flonum))) (cond [(eqv? x y) #t] [(or (not (finite? x)) (not (finite? y))) #f] [else |