Fix a bug in (read-string) which affects non-special characters.

2010-05-27 23:11:08 -05:00 · 2010-05-27 23:11:08 -05:00 · 61b6a76205
parent e1662ca4b8
commit 61b6a76205
1 changed files with 3 additions and 1 deletions
--- a/src/reader.rls
+++ b/src/reader.rls
@ -275,7 +275,9 @@
                        (next-char)
                        (cdr item))])]
              [else 
-                 current-char]))
+                 (let ([ch current-char])
+                   (next-char)
+                   ch)]))

          (let ([ch (read-one-char)])
            (if ch