summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-07 20:00:44 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-07 20:00:44 +0200
commitffba1c0c3bb96239a7d8b4463d5b78d0455adc40 (patch)
tree48a47aad99c7cb58985bf804ee1c408ba7ce51fb /MLKInterpreter.m
parent3e9ae8c764257f14132b490531e63e4ba64dbe55 (diff)
Interpreter: Make NIL throwable.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m16
1 files changed, 8 insertions, 8 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 918aa1a..0a70f2b 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -171,10 +171,10 @@ static MLKSymbol *_LAMBDA;
NS_DURING
{
- catchTag = denullify([[self eval:[[program cdr] car]
- inLexicalContext:context
- withEnvironment:lexenv]
- objectAtIndex:0]);
+ catchTag = [[self eval:[[program cdr] car]
+ inLexicalContext:context
+ withEnvironment:lexenv]
+ objectAtIndex:0];
values = [self eval:[MLKCons cons:PROGN with:[[program cdr] cdr]]
inLexicalContext:context
@@ -489,10 +489,10 @@ static MLKSymbol *_LAMBDA;
NSArray *values;
NSDictionary *userInfo;
- catchTag = denullify([[self eval:[[program cdr] car]
- inLexicalContext:context
- withEnvironment:lexenv]
- objectAtIndex:0]);
+ catchTag = [[self eval:[[program cdr] car]
+ inLexicalContext:context
+ withEnvironment:lexenv]
+ objectAtIndex:0];
values = [self eval:[[[program cdr] cdr] car]
inLexicalContext:context