From 8337945090fe3fd0e142fda4dd98bb3fca23fbf5 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 19 Jun 2008 19:14:06 +0200
Subject: Fix symbol reading.

---
 MLKReader.m | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'MLKReader.m')

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