fixed gensym read syntax problem.

This commit is contained in:
Abdulaziz Ghuloum 2008-10-26 12:35:07 -04:00
parent 5ed3f80901
commit 7fa2aa75ab
2 changed files with 2 additions and 1 deletions

View File

@ -119,6 +119,7 @@
[(char=? c #\\) [(char=? c #\\)
(read-char p) (read-char p)
(tokenize-backslash ls p)] (tokenize-backslash ls p)]
[(char=? c #\}) ls]
[else [else
(die/p p 'tokenize "invalid identifier syntax" (die/p p 'tokenize "invalid identifier syntax"
(list->string (reverse (cons c ls))))])))) (list->string (reverse (cons c ls))))]))))

View File

@ -1 +1 @@
1647 1648