summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 19:18:31 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-03 19:18:31 +0200
commit930a4cef72c1b3798edbd7f3a91ee79a5cbb14ad (patch)
treed8f8ea8b2394a639c610360ba5e4880f344a0b4c /MLKInterpreter.m
parent92a3142b212589ff9da84347b72e679d0827efd7 (diff)
Reimplement VALUES as a function as opposed to a special operator.
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])