diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-10-04 00:57:35 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-10-04 00:57:35 +0200 |
commit | 5b13591caa3b79c922487a6b21d5240afdb00f86 (patch) | |
tree | 095b556c4d2a8c11f4a779ac17018be4e25ef226 /MLKForm.m | |
parent | afaaec406bc86bf52ef976634b458dbc7e01fdc9 (diff) | |
parent | a4a3054ddeeecbf7ec3b087b2db69bea192ebc8a (diff) |
Merge /home/mulk/Dropbox/Projekte/Toilet Lisp
Diffstat (limited to 'MLKForm.m')
-rw-r--r-- | MLKForm.m | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -183,7 +183,7 @@ else if (car == _FLET) return [MLKSimpleFletForm class]; else if (car == LET) return [MLKLetForm class]; else if (car == _LOOP) return [MLKSimpleLoopForm class]; - else if (car == MULTIPLE_VALUE_CALL) return [MLKMultipleValueCallForm class]; + else if (car == MULTIPLE_VALUE_LIST) return [MLKMultipleValueListForm class]; else if (car == PROGN) return [MLKProgNForm class]; else if (car == PROGV) return [MLKProgVForm class]; else if (car == QUOTE) return [MLKQuoteForm class]; @@ -896,25 +896,24 @@ @end -@implementation MLKMultipleValueCallForm +@implementation MLKMultipleValueListForm -(id) complete { self = [super complete]; - LASSIGN (_functionForm, [MLKForm formWithObject:[_tail car] - inContext:_context - forCompiler:_compiler]); - [self processBody:[_tail cdr]]; + LASSIGN (_listForm, [MLKForm formWithObject:[_tail car] + inContext:_context + forCompiler:_compiler]); return self; } -(NSArray *) subforms { - return [[super subforms] arrayByAddingObject:_functionForm]; + return [[super subforms] arrayByAddingObject:_listForm]; } -(void) dealloc { - LDESTROY (_functionForm); + LDESTROY (_listForm); [super dealloc]; } @end |