From af415e7e63dc62416cd73a4f146e26e8f3e55c6f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Fri, 8 Aug 2008 19:06:58 +0200
Subject: MLKForeignProcedure: Do not free(3) the foreign function in -dealloc.

---
 MLKForeignProcedure.m | 6 +-----
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3