diff options
| -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 |