with-ud ( ..a quot: ( ..a ud -- ..b ) -- ..b )

Vocabulary

tools.disassembler.udis

Inputs

quot	a quotation with stack effect ( ..a ud -- ..b )

Outputs

None

Definition

USING: destructors kernel tools.memory ;

IN: tools.disassembler.udis

: with-ud ( ..a quot: ( ..a ud -- ..b ) -- ..b )
    [ [ [ <ud> ] dip call ] with-destructors ] with-code-blocks
    ; inline