summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m10
1 files changed, 7 insertions, 3 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 343246c..3cc3431 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -237,9 +237,13 @@ static MLKSymbol *_LOOP;
if (expandOnly)
NS_VALUERETURN ([NSArray arrayWithObject:
- [MLKCons cons:CATCH
- with:[MLKCons cons:catchTag
- with:values]]],
+ [MLKCons
+ cons:CATCH
+ with:[MLKCons
+ cons:catchTag
+ with:[[values
+ objectAtIndex:0]
+ cdr]]]],
NSArray *);
[MLKDynamicContext popContext];