diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 19:18:31 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 19:18:31 +0200 |
commit | 930a4cef72c1b3798edbd7f3a91ee79a5cbb14ad (patch) | |
tree | d8f8ea8b2394a639c610360ba5e4880f344a0b4c /MLKInterpreter.m | |
parent | 92a3142b212589ff9da84347b72e679d0827efd7 (diff) |
Reimplement VALUES as a function as opposed to a special operator.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r-- | MLKInterpreter.m | 20 |
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]) |