From 1be372285563189dba8f7ecf7b26a049f3728655 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 12:20:07 +0200
Subject: Make keywords self-evaluate while interning, not while reading.

---
 MLKReader.m | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'MLKReader.m')

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
-- 
cgit v1.2.3