From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 7 Dec 2018 15:45:43 +0000 (+0000)
Subject: string->number returns false on error.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~37
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4bf030c877bbdc64fb36e3ff3f759405b6a1baef;p=mit-scheme.git

string->number returns false on error.
---

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index aa3bc16f5..ce35dc0b4 100644
--- 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))