From 372e2cf35074ee8347707e5e7ef73e092be5ca1e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 17:52:12 +0200
Subject: Minimal compiler: Fix handling of CATCH forms.

---
 MLKInterpreter.m | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'MLKInterpreter.m')

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];
-- 
cgit v1.2.3