if-disposed ( ..a disposable quot1: ( ..a -- ..b ) quot2: ( ..a disposable -- ..b ) -- ..b )

Vocabulary

destructors

Inputs

disposable	an object
quot1	a quotation with stack effect ( ..a -- ..b )
quot2	a quotation with stack effect ( ..a disposable -- ..b )

Outputs

None

Definition

USING: accessors kernel ;

IN: destructors

: if-disposed
    ( ..a disposable quot1: ( ..a -- ..b ) quot2: ( ..a disposable -- ..b ) -- ..b )
    [ dup disposed>> ] [ [ drop ] prepose ] [ ] tri* if ; inline