- fixed minor bug when reading an identifier from a port with an

invalid unicode decoding sequence.
2008-11-07 21:53:55 -05:00 · 2008-11-07 21:53:55 -05:00 · a9da844a46
parent 9c60997b02
commit a9da844a46
2 changed files with 3 additions and 2 deletions
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@ -113,7 +113,8 @@
        (cond
         [(eof-object? c) ls]
         [(subsequent? c)
-          (tokenize-identifier (cons (read-char p) ls) p)]
+          (read-char p)
+          (tokenize-identifier (cons c ls) p)]
         [(delimiter? c)
          ls]
         [(char=? c #\\)
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1660
+1661