fuel-with-autouse ( ..a quot: ( ..a -- ..b ) -- ..b )

Vocabulary

fuel

Inputs

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

Outputs

None

Definition

USING: fuel.private kernel namespaces ;

IN: fuel

: fuel-with-autouse ( ..a quot: ( ..a -- ..b ) -- ..b )
    [ [ set-use-hook ] ] dip [ call ] curry compose with-scope ;
    inline