Fix bug reading arrays with lengths

* module/ice-9/read.scm (%read): Fix typo.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 74f567dd5dbad018df4ed83f1e2627773f4451e9..29175d54c8966f40076260a60433b1e32fdef2bd 100644 (file)
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -500,7 +500,7 @@
       (let lp ((ch ch) (chars '()))
         (when (eof-object? ch)
           (error "unexpected end of input while reading array"))
-        (if (memv ch '(#\( #\@ @\:))
+        (if (memv ch '(#\( #\@ #\:))
             (values ch
                     (if (null? chars)
                         #t