diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-07 20:00:44 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-07 20:00:44 +0200 |
| commit | ffba1c0c3bb96239a7d8b4463d5b78d0455adc40 (patch) | |
| tree | 48a47aad99c7cb58985bf804ee1c408ba7ce51fb | |
| parent | 3e9ae8c764257f14132b490531e63e4ba64dbe55 (diff) | |
Interpreter: Make NIL throwable.
| -rw-r--r-- | MLKInterpreter.m | 16 |
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 |