diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-09 10:22:19 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-09 10:22:19 +0200 |
commit | e2b78839c16f05cd3c0eb83063bcc449e93fe616 (patch) | |
tree | 08596832702f6203738f63997849c061ee0ccb0d /MLKForeignProcedure.m | |
parent | 28f00343ce1fa21f4559bac70e58b723e2d59a6b (diff) | |
parent | f24fe15610e9d5bd3457bcb7567dc723672ffb04 (diff) |
Merge mulk_benkard@ssh.phx.nearlyfreespeech.net:/home/htdocs/code/mulklisp
Diffstat (limited to 'MLKForeignProcedure.m')
-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 |