From 05fc2a9fd9326bd059681b7684a74e1ad1de1ec6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Fri, 27 Jun 2008 23:53:25 +0200
Subject: MLKInterpreter: Fix macro support.

---
 MLKInterpreter.m | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 35ea2ad..f56e750 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -368,9 +368,12 @@ static MLKSymbol *_LAMBDA;
               else if ([context symbolNamesMacro:car])
                 {
                   id macrofun = [context macroForSymbol:car];
-                  id expansion = [macrofun applyToArray:
-                                             [NSArray arrayWithObjects:
-                                                        program, context, nil]];
+                  id expansion = denullify([[macrofun
+                                              applyToArray:
+                                                [NSArray arrayWithObjects:
+                                                           program, context, nil]]
+                                             objectAtIndex:0]);
+;
                   return [self eval:expansion
                                inLexicalContext:context
                                withEnvironment:lexenv];
-- 
cgit v1.2.3