Add flo:<>, as (or flo:< flo:>) for now.

diff --git a/src/runtime/primitive-arithmetic.scm b/src/runtime/primitive-arithmetic.scm
index 6d27646f0e80f8768226a1e8b76b24bdcbdf2e9a..d1ab3c8cedac05dcc3a99c3d2470ed8539fb90b1 100644 (file)
--- a/src/runtime/primitive-arithmetic.scm
+++ b/src/runtime/primitive-arithmetic.scm
@@ -228,6 +228,7 @@ USA.
 \f
 (define (flo:<= x y) (or (flo:< x y) (flo:= x y)))
 (define (flo:>= x y) (or (flo:> x y) (flo:= x y)))
+(define (flo:<> x y) (or (flo:< x y) (flo:> x y)))
 
 (define (flo:min x y)
   (cond ((flo:< x y) x)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 3eef506f62cce557d27dc9819ebb8b0b7ad5ad31..c73ba2b1c6822297f96e5f137e126aa496760f98 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -292,6 +292,7 @@ USA.
          flo:/
          flo:<
          flo:<=
+         flo:<>
          flo:=
          flo:>
          flo:>=

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index f4b3df766b13589fc8edd152a64eae0888b33dbe..ef380e254d383454f163136c00a9310946bb9500 100644 (file)
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -48,13 +48,6 @@ USA.
   ;; XXX Temporary workaround for my setup.
   (no-traps f))
 
-(define (flo:<> x y)                    ;XXX
-  (if (or (flo:nan? x) (flo:nan? y))
-      (begin
-        (flo:raise-exceptions! (flo:exception:invalid-operation))
-        #f)
-      (not (flo:= x y))))
-
 (define subnormal+ flo:smallest-positive-subnormal)
 (define subnormal- (no-traps (lambda () (- subnormal+))))