Fix reading hashed object notation #[foo 123].
authorTaylor R Campbell <campbell@mumble.net>
Fri, 9 Aug 2019 16:56:01 +0000 (16:56 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Sat, 10 Aug 2019 03:35:04 +0000 (03:35 +0000)
tests/runtime/test-readwrite.scm

index ef556bf9aa4fed3f3f073f6a5cfe79fd698e97a5..656f58681e672fd08352d225f3467bf242f03929 100644 (file)
@@ -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