diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-05 11:05:10 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-05 11:05:10 +0200 |
| commit | 94569e041529eead2209ecd2e04a747dbef262d3 (patch) | |
| tree | e116e05d1bac4fbb22918fe2210282a86af8e0e8 | |
| parent | f2fc98f3e76ef92297aedb38de3644fc98fb8532 (diff) | |
Implement MLKInterpretedClosure#-dealloc.
| -rw-r--r-- | MLKInterpretedClosure.h | 2 | ||||
| -rw-r--r-- | MLKInterpretedClosure.m | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/MLKInterpretedClosure.h b/MLKInterpretedClosure.h index 942a9b8..08421f5 100644 --- a/MLKInterpretedClosure.h +++ b/MLKInterpretedClosure.h @@ -42,4 +42,6 @@ -(NSString *) description; -(NSString *) descriptionForLisp; + +-(void) dealloc; @end diff --git a/MLKInterpretedClosure.m b/MLKInterpretedClosure.m index 8b2fd9b..fd7fb19 100644 --- a/MLKInterpretedClosure.m +++ b/MLKInterpretedClosure.m @@ -85,4 +85,13 @@ static MLKSymbol *PROGN; { return [NSString stringWithFormat:@"<Interpreted closure @%p>", self]; } + +-(void) dealloc +{ + [super dealloc]; + LDESTROY (bodyForm); + LDESTROY (lambdaListName); + LDESTROY (context); + LDESTROY (environment); +} @end |