with-bindings ( ..a end quot: ( ..a words -- ..b ) -- ..b )

Vocabulary

functors.private

Inputs

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

Outputs

None

Definition

USING: kernel make namespaces vocabs.parser ;

IN: functors.private

: with-bindings
    ( ..a end quot: ( ..a words -- ..b ) -- ..b )
    '[ building get [ _ parse-bindings @ ] with-words ] H{ }
    make drop ; inline