From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 9 Aug 2019 16:56:01 +0000 (+0000)
Subject: Fix reading hashed object notation #[foo 123].
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~99
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5bf5dcbdf2d11dd7fb48c9dab3235687ce5e00ea;p=mit-scheme.git

Fix reading hashed object notation #[foo 123].
---

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index ef556bf9a..656f58681 100644
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -271,9 +271,7 @@ USA.
 	   (string (string-append "#[twonky " (number->string hash) "]"))
 	   (abbrev (string-append "#@" (number->string hash))))
       (assert-equal (write-to-string object) string)
-      (expect-error
-       (lambda ()
-	 (assert-eq (eval (read-from-string string) system-global-environment)
-		    object)))
+      (assert-eq (eval (read-from-string string) system-global-environment)
+		 object)
       (assert-eq (eval (read-from-string abbrev) system-global-environment)
 		 object))))
\ No newline at end of file