 M: word splicing-nodes
     [ [ in-d>> ] [ out-d>> ] bi ] dip #call 1array ;
 
-M: quotation splicing-nodes
+M: callable splicing-nodes
     build-sub-tree analyze-recursive normalize ;
 
 : propagate-body ( #call -- )

    {
        { [ dup deferred? ] [ 2drop f ] }
        { [ dup custom-inlining? ] [ inline-custom ] }
        { [ dup always-inline-word? ] [ inline-word ] }
        { [ dup standard-generic? ] [ inline-standard-method ] }
        { [ dup math-generic? ] [ inline-math-method ] }

    [ dup 1array ] [ "custom-inlining" word-prop ] bi* with-datastack
    first object swap eliminate-dispatch ;

: inline-instance-check ( #call word -- ? )
    over in-d>> second value-info literal>> dup class?
    [ "predicate" word-prop '[ drop @ ] inline-word-def ] [ 3drop f ] if ;

: do-inlining ( #call word -- ? )
    #! If the generic was defined in an outer compilation unit,
    #! then it doesn't have a definition yet; the definition
