summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m20
1 files changed, 0 insertions, 20 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index 4341e55..8b8600a 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -1204,26 +1204,6 @@ static MLKSymbol *MULTIPLE_VALUE_CALL;
return results;
}
- else if (car == VALUES)
- {
- id results = [NSMutableArray array];
- id rest = program;
-
- while ((rest = [rest cdr]))
- {
- [results addObject:
- [[self eval:[rest car]
- inLexicalContext:context
- withEnvironment:lexenv
- expandOnly:expandOnly]
- objectAtIndex:0]];
- }
-
- if (expandOnly)
- RETURN_VALUE ([MLKCons cons:VALUES
- with:[MLKCons listWithArray:results]]);
- return results;
- }
else
{
if ([context symbolNamesFunction:car])