From d86ccf58d5b462100d1f4ec5d016024543ec7f53 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 22:43:25 +0200
Subject: Replace special operator %DEFMACRO with intrinsic function %MACROSET.

---
 MLKRoot.m | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index 0c59c23..b12cd17 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -746,4 +746,15 @@ as provided by method %@ of object %@",
 
   RETURN_VALUE (value);
 }
+
++(NSArray *) macroset:(NSArray *)args
+{
+  id symbol = denullify ([args objectAtIndex:0]);
+  id value = denullify ([args objectAtIndex:1]);
+
+  [[MLKLexicalContext globalContext] addMacro:value
+                                     forSymbol:symbol];
+
+  RETURN_VALUE (value);
+}
 @end
-- 
cgit v1.2.3