diff options
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)) == ')') |