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

Vocabulary

compiler.cfg

Inputs

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

Outputs

None

Definition

USING: kernel namespaces ;

IN: compiler.cfg

: with-cfg ( ..a cfg quot: ( ..a cfg -- ..b ) -- ..b )
    [ dup cfg ] dip with-variable ; inline