build-tree-with ( in-stack word/quot -- nodes )

Vocabulary

compiler.tree.builder.private

Inputs

in-stack	an object
word/quot	an object

Outputs

nodes

an object

Definition

USING: kernel namespaces sequences stack-checker.backend
stack-checker.recursive-state stack-checker.state
stack-checker.visitor vectors ;

IN: compiler.tree.builder.private

: build-tree-with ( in-stack word/quot -- nodes )
    [
        <recursive-state> recursive-state set
        V{ } clone stack-visitor set [
            [ >vector (meta-d) set ] [ length input-count set ]
            bi
        ] [ (build-tree) ] bi*
    ] with-infer nip ;