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 #\\)
(read-char p)
(tokenize-backslash ls p)]
[(char=? c #\}) ls]
[else
(die/p p 'tokenize "invalid identifier syntax"
(list->string (reverse (cons c ls))))]))))

View File

@ -1 +1 @@
1647
1648