diff options
| -rw-r--r-- | MLKForeignProcedure.m | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/MLKForeignProcedure.m b/MLKForeignProcedure.m index 248a184..459ce97 100644 --- a/MLKForeignProcedure.m +++ b/MLKForeignProcedure.m @@ -105,21 +105,17 @@ -(NSString *) descriptionForLisp { - return [NSString stringWithFormat:@"<Compiled procedure @%p>", self]; + return [NSString stringWithFormat:@"<Foreign procedure %p @%p>", _code, self]; } -(void) dealloc { - // FIXME: Can we really just use free() here? - free (_code); free (_argumentTypes); [super dealloc]; } -(void) finalize { - // FIXME: Can we really just use free() here? - free (_code); free (_argumentTypes); } @end |