                     { [ dup generic? ] [ generics-called ] }
                     { [ dup method? ] [ methods-called ] }
                     [ words-called ]
-                } cond get inc-at
+                } cond building get at inc-at
             ] [ drop ] if
         ] each-node
-        node-count set
-    ] H{ } make-assoc ;
+        node-count ,,
+    ] H{ } make ;
 
 : report. ( report -- )
     [

    [
        build-tree optimize-tree

        H{ } clone words-called set
        H{ } clone generics-called set
        H{ } clone methods-called set
        H{ } clone intrinsics-called set

        0 swap [
            [ 1 + ] dip


M: callable optimized.
    build-tree optimize-tree nodes>quot
    f length-limit [ . ] with-variable ;

SYMBOL: words-called
SYMBOL: generics-called
