From 90dd81762b1c62246a31245d8bbb27966b1d5452 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 22 Jun 2008 23:57:44 +0200 Subject: Interpreter: Fix QUOTE and empty PROGN forms. --- MLKInterpreter.m | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/MLKInterpreter.m b/MLKInterpreter.m index 1b4ddbb..1c011d2 100644 --- a/MLKInterpreter.m +++ b/MLKInterpreter.m @@ -120,7 +120,7 @@ static MLKSymbol *_DEFMACRO; } else if (car == PROGN) { - id result; + id result = nil; id rest = program; while ((rest = [rest cdr])) { @@ -133,7 +133,7 @@ static MLKSymbol *_DEFMACRO; } else if (car == QUOTE) { - return [program cdr]; + return [[program cdr] car]; } else if (car == TAGBODY) { @@ -171,7 +171,7 @@ static MLKSymbol *_DEFMACRO; else { [NSException raise:@"MLKNoSuchOperatorException" - format:@"%@ does not name an known operator.", + format:@"%@ does not name a known operator.", [car descriptionForLisp]]; } } -- cgit v1.2.3