     ] if ;
 
 : inline-word ( #call word -- ? )
-    dup def>> inline-word-def ;
+    dup specialized-def inline-word-def ;
 
 : inline-method-body ( #call word -- ? )
     2dup should-inline? [ inline-word ] [ 2drop f ] if ;

    { curry compose } memq? ;

: never-inline-word? ( word -- ? )
    [ deferred? ] [ { call execute } memq? ] bi or ;

: custom-inlining? ( word -- ? )
    "custom-inlining" word-prop ;

    [
        [ classes-known? 2 0 ? ]
        [
            [ body-length-bias ]
            [ "specializer" word-prop 1 0 ? ]
            [ method-body? 1 0 ? ]
            tri
            node-count-bias
            loop-nesting get 0 or 2 *
        ] bi*
