make-report ( word/quot -- assoc )

Vocabulary

compiler.tree.debugger

Inputs

word/quot

an object

Outputs

assoc

an object

Definition

USING: accessors assocs combinators compiler.tree
compiler.tree.builder compiler.tree.combinators
compiler.tree.optimizer kernel make math namespaces ;

IN: compiler.tree.debugger

: make-report ( word/quot -- assoc )
    [
        build-tree optimize-tree H{ } clone words-called ,,
        H{ } clone generics-called ,,
        H{ } clone methods-called ,,
        H{ } clone intrinsics-called ,, 0 swap [
            [ 1 + ] dip dup #call? [
                word>> {
                    { ~quotation~ ~quotation~ }
                    { ~quotation~ ~quotation~ }
                    { ~quotation~ ~quotation~ }
                    [ words-called ]
                } cond building get at inc-at
            ] [ drop ] if
        ] each-node node-count ,,
    ] H{ } make ;