fuel-use-suggested-vocabs ( ..a suggestions quot: ( ..a -- ..b ) -- ..b result )

Vocabulary

fuel

Inputs

suggestions	an object
quot	a quotation with stack effect ( ..a -- ..b )

Outputs

result

an object

Definition

USING: continuations fuel.private kernel namespaces ;

IN: fuel

: fuel-use-suggested-vocabs
    ( ..a suggestions quot: ( ..a -- ..b ) -- ..b result )
    f auto-uses set-global [ :uses-suggestions set ] dip
    [ try-suggested-restarts rethrow ] recover
    auto-uses get-global ; inline