From 85762b55bf85437e981ebbf162e9af2255236330 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 19 Jun 2008 21:16:13 +0200
Subject: Make the list reader work for simple lists.

---
 MLKReadtable.m | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'MLKReadtable.m')

diff --git a/MLKReadtable.m b/MLKReadtable.m
index dd2a428..349688e 100644
--- a/MLKReadtable.m
+++ b/MLKReadtable.m
@@ -96,6 +96,12 @@ DEFINE_SYNTAX_PREDICATE(isConstituentCharacter:, CONSTITUENT)
   return [_readerMacros objectForKey:[NSNumber numberWithLong:ch]];
 }
 
+-(void) setMacroFunction:(MLKFuncallable *)function forCharacter:(unichar)ch
+{
+  [_readerMacros setObject:function
+                 forKey:[NSNumber numberWithLong:ch]];
+}
+
 -(unichar) charWithReadtableCase:(unichar)ch
 {
   switch (_case)
-- 
cgit v1.2.3