with-dummy-cfg-builder ( node quot -- )

Vocabulary

compiler.cfg.builder

Inputs

node	an object
quot	an object

Outputs

None

Definition

USING: combinators kernel make namespaces ;

IN: compiler.cfg.builder

: with-dummy-cfg-builder ( node quot -- )
    [
        [ V{ } clone procedures ] 2dip [ [ drop ] ] dip
        [ ( node -- ) call-effect ] curry compose
        [ [ t t ] curry ] dip [ with-cfg-builder ] curry compose
        with-variable
    ] { } make drop ;