Correction to:

	(integer?): Exercise nan and +/-inf.

+/-inf should be #t.

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 63342af..bbaaa92 100644 (file)
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1234,8 +1234,8 @@
   (pass-if (and (= 3+0i (round 3+0i)) (integer? 3+0i)))
   (pass-if (and (= 1.0 (round 1.0)) (integer? 1.0)))
   (pass-if (not (integer? 1.3)))
-  (pass-if (not (integer? +inf.0)))
-  (pass-if (not (integer? -inf.0)))
+  (pass-if (integer? +inf.0))
+  (pass-if (integer? -inf.0))
   (pass-if (not (integer? +nan.0)))
   (pass-if (not (integer? 3+4i)))
   (pass-if (not (integer? #\a)))