diff options
Diffstat (limited to 'MLKReader.m')
| -rw-r--r-- | MLKReader.m | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/MLKReader.m b/MLKReader.m index 422fd8f..2341d32 100644 --- a/MLKReader.m +++ b/MLKReader.m @@ -107,7 +107,8 @@ if ([readtable isConstituentCharacter:ch]) { token = [NSMutableString stringWithCapacity:8]; - [token appendFormat:@"%C", [stream readChar]]; + [token appendFormat:@"%C", [readtable charWithReadtableCase: + [stream readChar]]]; } while (![stream isEOF]) @@ -407,7 +408,7 @@ break; } } - + // Extract the package and symbol name. if (packageMarker == -1) { @@ -443,7 +444,7 @@ if (packageMarker == 0) { // Make keyword symbols self-evaluate. - [[MLKDynamicContext currentContext] setValue:symbol forBinding:symbol]; + [[MLKDynamicContext globalContext] addValue:symbol forBinding:symbol]; } return symbol; |