summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 19:55:28 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-31 19:55:28 +0200
commit783810557ff05c3d52aedc03628df7b0d862948b (patch)
treeaedc1a9771391a998c52b0037fb3bfba687cbdfa
parent372e2cf35074ee8347707e5e7ef73e092be5ca1e (diff)
CATCH: On errors, do not try to disestablish a dynamic context that hasn't been established yet.
-rw-r--r--MLKInterpreter.m12
1 files changed, 6 insertions, 6 deletions
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]