From c0fd54d3fcf0497e89f7df8e87d810149aaa5af7 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sun, 27 Jul 2014 12:55:50 +0900 Subject: [PATCH] lock nan tests. (= +nan.0 +nan.0) always returns false (because ieee754 specifies so). --- t/r7rs-tests.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 07d9b788..869fbc42 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -2108,8 +2108,8 @@ ;; (test-numeric-syntax "1l2" 100.0 "100.0" "100.") ;; (test-numeric-syntax "1L2" 100.0 "100.0" "100.") ;; ;; NaN, Inf -(test-numeric-syntax "+nan.0" +nan.0 "+nan.0" "+NaN.0") -(test-numeric-syntax "+NAN.0" +nan.0 "+nan.0" "+NaN.0") +;; (test-numeric-syntax "+nan.0" +nan.0 "+nan.0" "+NaN.0") +;; (test-numeric-syntax "+NAN.0" +nan.0 "+nan.0" "+NaN.0") (test-numeric-syntax "+inf.0" +inf.0 "+inf.0" "+Inf.0") (test-numeric-syntax "+InF.0" +inf.0 "+inf.0" "+Inf.0") (test-numeric-syntax "-inf.0" -inf.0 "-inf.0" "-Inf.0")