Clean up alien.destructors

db4
Slava Pestov 2009-01-17 18:18:31 -06:00
parent 69d02fe06d
commit 8f4d84373b
1 changed files with 7 additions and 7 deletions
basis/alien/destructors

View File

@ -1,12 +1,12 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: functors destructors accessors kernel lexer words ;
USING: functors destructors accessors kernel parser words ;
IN: alien.destructors
FUNCTOR: define-destructor ( F -- )
F IS ${F}
F-destructor DEFINES ${F}-destructor
<F-destructor> DEFINES <${F}-destructor>
&F DEFINES &${F}
|F DEFINES |${F}
@ -14,14 +14,14 @@ WHERE
TUPLE: F-destructor alien disposed ;
: <F-destructor> ( alien -- destructor ) f F-destructor boa ; inline
M: F-destructor dispose* alien>> F execute ;
: &F ( alien -- alien )
dup f F-destructor boa &dispose drop ; inline
: &F ( alien -- alien ) dup <F-destructor> execute &dispose drop ; inline
: |F ( alien -- alien )
dup f F-destructor boa |dispose drop ; inline
: |F ( alien -- alien ) dup <F-destructor> execute |dispose drop ; inline
;FUNCTOR
: DESTRUCTOR: scan define-destructor ; parsing
: DESTRUCTOR: scan-word define-destructor ; parsing