summaryrefslogtreecommitdiff
path: root/MLKRoot.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKRoot.m')
-rw-r--r--MLKRoot.m10
1 files changed, 2 insertions, 8 deletions
diff --git a/MLKRoot.m b/MLKRoot.m
index 3206846..2a25b25 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -141,22 +141,16 @@ load (id _data, NSString *fileName, id _marker)
forSymbol:[sys intern:@"*LOAD-LEVEL*"]];
[ctx pushContext];
- NS_DURING
+ @try
{
success = [MLKInterpreter load:stream verbose:YES print:YES];
}
- NS_HANDLER
+ @finally
{
[MLKDynamicContext popContext];
LRELEASE (ctx);
[input close];
- [localException raise];
}
- NS_ENDHANDLER;
-
- [MLKDynamicContext popContext];
- LRELEASE (ctx);
- [input close];
[ostream writeString:@"; \\"];
for (i = 0; i < 68 - 2*level; i++)