summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 17:52:12 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 17:52:12 +0200
commit372e2cf35074ee8347707e5e7ef73e092be5ca1e (patch)
tree15b4825b6ae19bd2b4832805cc5d37e81dafda50
parent3ee58e9081354aed7bc45de457c0171aa78c613c (diff)
Minimal compiler: Fix handling of CATCH forms.
-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];