summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m9
1 files changed, 6 insertions, 3 deletions
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];