From 478fa0200e2d4d4a6bc87fe052ec32d57df41a9e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 1 Dec 2018 22:50:22 +0000 Subject: [PATCH] Teach sf about flo:safe-zero? and flo:safe=. --- src/sf/gconst.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm index ffedb2fbc..36f2ea98c 100644 --- a/src/sf/gconst.scm +++ b/src/sf/gconst.scm @@ -145,9 +145,11 @@ USA. (flo:positive? flonum-positive?) (flo:round flonum-round) (flo:round->exact flonum-round->exact) + (flo:safe-zero? flonum-is-zero?) (flo:safe< flonum-is-less?) (flo:safe<= flonum-is-less-or-equal?) (flo:safe<> flonum-is-less-or-greater?) + (flo:safe= flonum-is-equal?) (flo:safe> flonum-is-greater?) (flo:safe>= flonum-is-greater-or-equal?) (flo:sign-negative? flonum-is-negative?) -- 2.25.1