From 69d02fe06d0dafc31ab1fed2b7c2c692f064c548 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 17 Jan 2009 17:58:31 -0600
Subject: [PATCH] Use alien.destructors functor to generate &free and |free
 words

---
 basis/libc/libc.factor | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index c4d351e6a0..506f6b8b6f 100644
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2004, 2005 Mackenzie Straight
-! Copyright (C) 2007, 2008 Slava Pestov
+! Copyright (C) 2007, 2009 Slava Pestov
 ! Copyright (C) 2007, 2008 Doug Coleman
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien assocs continuations destructors kernel
+USING: alien assocs continuations alien.destructors kernel
 namespaces accessors sets summary ;
 IN: libc
 
@@ -90,17 +90,4 @@ PRIVATE>
 : strlen ( alien -- len )
     "size_t" "libc" "strlen" { "char*" } alien-invoke ;
 
-<PRIVATE
-
-! Memory allocations
-TUPLE: memory-destructor alien disposed ;
-
-M: memory-destructor dispose* alien>> free ;
-
-PRIVATE>
-
-: &free ( alien -- alien )
-    dup f memory-destructor boa &dispose drop ; inline
-
-: |free ( alien -- alien )
-    dup f memory-destructor boa |dispose drop ; inline
+DESTRUCTOR: free