From 7dd22ac1304e8b8fc092022e834fb16b6e2faea9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 28 Jan 2009 15:03:00 -0600
Subject: [PATCH] Update alien.destructors for functor changes

---
 basis/alien/destructors/destructors.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/alien/destructors/destructors.factor b/basis/alien/destructors/destructors.factor
index fdc752e78c..99fc9d1d97 100644
--- a/basis/alien/destructors/destructors.factor
+++ b/basis/alien/destructors/destructors.factor
@@ -18,11 +18,11 @@ TUPLE: F-destructor alien disposed ;
 
 : <F-destructor> ( alien -- destructor ) f F-destructor boa ; inline
 
-M: F-destructor dispose* alien>> F execute ;
+M: F-destructor dispose* alien>> F ;
 
-: &F ( alien -- alien ) dup <F-destructor> execute &dispose drop ; inline
+: &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline
 
-: |F ( alien -- alien ) dup <F-destructor> execute |dispose drop ; inline
+: |F ( alien -- alien ) dup <F-destructor> |dispose drop ; inline
 
 ;FUNCTOR