diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 17:52:12 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-31 17:52:12 +0200 |
| commit | 372e2cf35074ee8347707e5e7ef73e092be5ca1e (patch) | |
| tree | 15b4825b6ae19bd2b4832805cc5d37e81dafda50 | |
| parent | 3ee58e9081354aed7bc45de457c0171aa78c613c (diff) | |
Minimal compiler: Fix handling of CATCH forms.
| -rw-r--r-- | MLKInterpreter.m | 10 |
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]; |