when-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

IN: destructors

: when-disposed
    ( ..a disposable quot1: ( ..a -- ..b ) quot2: ( ..a disposable -- ..b ) -- ..b )
    [ ] if-disposed ; inline