diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 11:48:46 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 11:48:46 +0200 |
| commit | ca17649dab6d0d1ed49a3e072827e8324629aa64 (patch) | |
| tree | 4b6cd04a660f44e11aa6089a02df7ab925c60eaf /MLKParenReader.m | |
| parent | 0f383318a079bd0c7bb23c909f30771b1c20b29c (diff) | |
Reader: Add support for dispatching macro characters.
Diffstat (limited to 'MLKParenReader.m')
| -rw-r--r-- | MLKParenReader.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/MLKParenReader.m b/MLKParenReader.m index b61a332..220bded 100644 --- a/MLKParenReader.m +++ b/MLKParenReader.m @@ -68,7 +68,8 @@ static unichar slurpWhitespaceAndPeek (MLKStream *stream, MLKReadtable *readtabl eofValue:nil recursive:YES preserveWhitespace:NO - singleDotMarker:dotMarker]; + singleDotMarker:dotMarker + readingUninternedSymbol:NO]; if (item == dotMarker) { @@ -80,8 +81,7 @@ static unichar slurpWhitespaceAndPeek (MLKStream *stream, MLKReadtable *readtabl eofError:YES eofValue:nil recursive:YES - preserveWhitespace:NO - singleDotMarker:nil]; + preserveWhitespace:NO]; [tail setCdr:nextItem]; if ((nextChar = slurpWhitespaceAndPeek (stream, readtable)) == ')') |