From 783810557ff05c3d52aedc03628df7b0d862948b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 19:55:28 +0200
Subject: CATCH: On errors, do not try to disestablish a dynamic context that
 hasn't been established yet.

---
 MLKInterpreter.m | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 3cc3431..9ccc079 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -210,14 +210,14 @@ static MLKSymbol *_LOOP;
               NSArray *values;
               MLKDynamicContext *newctx;
 
+              catchTag = [[self eval:[[program cdr] car]
+                                inLexicalContext:context
+                                withEnvironment:lexenv
+                                expandOnly:expandOnly]
+                           objectAtIndex:0];
+                  
               NS_DURING
                 {
-                  catchTag = [[self eval:[[program cdr] car]
-                                    inLexicalContext:context
-                                    withEnvironment:lexenv
-                                    expandOnly:expandOnly]
-                               objectAtIndex:0];
-                  
                   if (!expandOnly)
                     {
                       newctx = [[MLKDynamicContext alloc]
-- 
cgit v1.2.3