1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: functors destructors accessors kernel parser words
4 effects generalizations sequences ;
9 FUNCTOR: define-destructor ( F -- )
11 F-destructor DEFINES-CLASS ${F}-destructor
12 <F-destructor> DEFINES <${F}-destructor>
15 N [ F stack-effect out>> length ]
19 TUPLE: F-destructor < disposable alien ;
21 : <F-destructor> ( alien -- destructor )
22 F-destructor new-disposable swap >>alien ; inline
24 M: F-destructor dispose* alien>> F N ndrop ;
26 : &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline
28 : |F ( alien -- alien ) dup <F-destructor> |dispose drop ; inline
32 SYNTAX: DESTRUCTOR: scan-word define-destructor ;