From 49d896cf25a2cef62d58d04c043800dbe4967d80 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 03:39:49 +0000 Subject: [PATCH] Teach sf about some flonum primitives worth open-coding. --- src/sf/gconst.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm index afdd7bdf6..bf1e870b1 100644 --- a/src/sf/gconst.scm +++ b/src/sf/gconst.scm @@ -116,6 +116,7 @@ USA. (flo:- flonum-subtract) (flo:/ flonum-divide) (flo:< flonum-less?) + (flo:<> flonum-is-less-or-greater?) (flo:= flonum-equal?) (flo:> flonum-greater?) (flo:abs flonum-abs) @@ -129,21 +130,32 @@ USA. (flo:exp flonum-exp) (flo:expm1 flonum-expm1) (flo:expt flonum-expt) + (flo:finite? flonum-is-finite?) (flo:flonum? flonum?) (flo:floor flonum-floor) (flo:floor->exact flonum-floor->exact) + (flo:infinite? flonum-is-infinite?) (flo:log flonum-log) (flo:log1p flonum-log1p) + (flo:nan? flonum-is-nan?) (flo:negate flonum-negate) (flo:negative? flonum-negative?) + (flo:normal? flonum-is-normal?) (flo:positive? flonum-positive?) (flo:round flonum-round) (flo:round->exact flonum-round->exact) + (flo:safe-negative? flonum-is-negative?) + (flo:safe< flonum-is-less?) + (flo:safe<= flonum-is-less-or-equal?) + (flo:safe<> flonum-is-less-or-greater?) + (flo:safe> flonum-is-greater?) + (flo:safe>= flonum-is-greater-or-equal?) (flo:sin flonum-sin) (flo:sqrt flonum-sqrt) (flo:tan flonum-tan) (flo:truncate flonum-truncate) (flo:truncate->exact flonum-truncate->exact) + (flo:unordered? flonum-is-unordered?) (flo:vector-cons floating-vector-cons) (flo:vector-length floating-vector-length) (flo:vector-ref floating-vector-ref) -- 2.25.1