Fake out sf so we actually test the <= and >= procedures here.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 0070016841123b80a365f085c4bfb4bfbf9a9c9e..cc9ac8bdd8eaa1b0d5cb259a742de5ba946099ac 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -132,16 +132,17 @@ USA.
 (define-enumerated-test 'nan-order
   (vector 0 0. -0. 1 1. -1 -1. (flo:-inf.0) (flo:+inf.0) (flo:nan.0))
   (lambda (x)
-    (assert-false (= x (flo:nan.0)))
-    (assert-false (< x (flo:nan.0)))
-    (expect-failure (lambda () (assert-false (>= x (flo:nan.0)))))
-    (assert-false (> x (flo:nan.0)))
-    (expect-failure (lambda () (assert-false (<= x (flo:nan.0)))))
-    (assert-false (= (flo:nan.0) x))
-    (assert-false (< (flo:nan.0) x))
-    (expect-failure (lambda () (assert-false (>= (flo:nan.0) x))))
-    (assert-false (> (flo:nan.0) x))
-    (expect-failure (lambda () (assert-false (<= (flo:nan.0) x))))))
+    (let ((id identity-procedure))
+      (assert-false (= x (flo:nan.0)))
+      (assert-false (< x (flo:nan.0)))
+      (expect-failure (lambda () (assert-false ((id >=) x (flo:nan.0)))))
+      (assert-false (> x (flo:nan.0)))
+      (expect-failure (lambda () (assert-false ((id <=) x (flo:nan.0)))))
+      (assert-false (= (flo:nan.0) x))
+      (assert-false (< (flo:nan.0) x))
+      (expect-failure (lambda () (assert-false ((id >=) (flo:nan.0) x))))
+      (assert-false (> (flo:nan.0) x))
+      (expect-failure (lambda () (assert-false ((id <=) (flo:nan.0) x)))))))
 
 (define-enumerated-test 'inf*0-exact
   (vector (list 0 (flo:+inf.0))