string->number returns false on error.

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index aa3bc16f588e2f6c4de72a08b89cd3202234c84f..ce35dc0b44b0ca80b666170f63bbc5dd77e7bc4a 100644 (file)
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -45,7 +45,7 @@ USA.
     (lambda ()
       (with-xfail xfail
         (lambda ()
-          (assert-error (lambda () (string->number s))))))))
+          (assert-false (string->number s)))))))
 
 (define (eqv-nan? x y)
   (if (and (flo:flonum? x) (flo:nan? x))