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 )
    [ [ parse-bindings ] curry ] dip compose
    [ [ building get ] ] dip [ with-words ] curry compose
    H{ } make drop ; inline