Make keywords self-evaluate while interning, not while reading.

1 files changed, 2 insertions, 8 deletions

diff --git a/MLKReader.m b/MLKReader.m
index a6f11c1..abd8a43 100644
--- a/MLKReader.m
+++ b/MLKReader.m
@@ -522,20 +522,14 @@ readingUninternedSymbol:(BOOL)readingUninternedSymbol
       else
         symbol = [MLKSymbol symbolWithName:symbolName package:nil];
 
-      if (packageMarker == 0)
-        {
-          // Make keyword symbols self-evaluate.
-          [[MLKDynamicContext globalContext] addValue:symbol forSymbol:symbol];
-        }
-
       return symbol;
     }
 }
 
 +(id) readFromString:(NSString *)string
 {
-  return [self readFromStream:[[MLKStringInputStream alloc]
-                                initWithString:string]
+  return [self readFromStream:AUTORELEASE([[MLKStringInputStream alloc]
+                                            initWithString:string])
                eofError:YES
                eofValue:nil
                recursive:NO