steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/alien/destructors/destructors.factor
View File

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