     compute-next-methods
     strip-init-hooks
     strip-c-io
+    strip-default-methods
     strip-compiler-classes
-    strip-default-methods
     f 5 setenv ! we can't use the Factor debugger or Factor I/O anymore
     deploy-vocab get vocab-main deploy-boot-quot
     find-megamorphic-caches

    strip-word-names? [ dup strip-word-names ] when
    2drop ;

: strip-compiler-classes ( -- )
    strip-dictionary? [
        "Stripping compiler classes" show
        { "compiler" "stack-checker" }
        [ child-vocabs [ words ] map concat [ class? ] filter ] map concat
        [ dup implementors [ "methods" word-prop delete-at ] with each ] each
    ] when ;

: recursive-subst ( seq old new -- )

    "vocab:tools/deploy/shaker/next-methods.factor" run-file ;

: (clear-megamorphic-cache) ( i array -- )
    ! Can't do any dispatch while clearing caches since that
    ! might leave them in an inconsistent state.
    2dup 1 slot < [
        2dup [ f ] 2dip set-array-nth
        [ 1 + ] dip (clear-megamorphic-cache)
