summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKInterpreter.m6
1 files 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]];
}
}