- fixed minor bug when reading an identifier from a port with an
invalid unicode decoding sequence.
This commit is contained in:
parent
9c60997b02
commit
a9da844a46
|
@ -113,7 +113,8 @@
|
||||||
(cond
|
(cond
|
||||||
[(eof-object? c) ls]
|
[(eof-object? c) ls]
|
||||||
[(subsequent? c)
|
[(subsequent? c)
|
||||||
(tokenize-identifier (cons (read-char p) ls) p)]
|
(read-char p)
|
||||||
|
(tokenize-identifier (cons c ls) p)]
|
||||||
[(delimiter? c)
|
[(delimiter? c)
|
||||||
ls]
|
ls]
|
||||||
[(char=? c #\\)
|
[(char=? c #\\)
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1660
|
1661
|
||||||
|
|
Loading…
Reference in New Issue