Some more general fixes for recent refactors.

basis/compiler/tests/redefine17.factor

@@ -2,7 +2,7 @@ USING: tools.test classes.mixin compiler.units arrays kernel.private
 strings sequences vocabs definitions kernel ;
 IN: compiler.tests.redefine17
 
-<< "compiler.tests.redefine17" words forget-all >>
+<< "compiler.tests.redefine17" vocab-words forget-all >>
 
 GENERIC: bong ( a -- b )
 

basis/listener/listener-tests.factor

@@ -53,7 +53,7 @@ SYNTAX: hello "Hi" print ;
     ] unit-test
 ] with-file-vocabs
 
-[ "call" "scratchpad" create drop ] with-compilation-unit
+[ "call" "scratchpad" create-word drop ] with-compilation-unit
 
 [
     [ t ]

basis/tools/disassembler/disassembler-tests.factor

@@ -1,4 +1,6 @@
 IN: tools.disassembler.tests
 USING: kernel fry vocabs tools.disassembler tools.test sequences ;
 
-"math" words [ [ [ ] ] dip '[ _ disassemble ] unit-test ] each
+"math" vocab-words [
+    [ { } ] dip '[ _ disassemble ] unit-test
+] each

extra/graphviz/render/render.factor

@@ -176,7 +176,7 @@ CONSTANT: standard-formats {
 }
 
 : define-graphviz-by-layout ( layout -- )
-    [ "graphviz.render" create ]
+    [ "graphviz.render" create-word ]
     [ [ graphviz ] curry ] bi
     ( graph path format -- )
     define-declared ;
@@ -184,7 +184,7 @@ CONSTANT: standard-formats {
 : define-graphviz-by-format ( format -- )
     [
         dup standard-layouts member? [ "-file" append ] when
-        "graphviz.render" create
+        "graphviz.render" create-word
     ]
     [ [ graphviz* ] curry ] bi
     ( graph path -- )

extra/html/elements/elements.factor

@@ -21,7 +21,7 @@ CONSTANT: elements-vocab "html.elements"
 : html-word ( name def effect -- )
     #! Define 'word creating' word to allow
     #! dynamically creating words.
-    [ elements-vocab create ] 2dip define-declared ;
+    [ elements-vocab create-word ] 2dip define-declared ;
 
 : <foo> ( str -- <str> ) "<" ">" surround ;
 

extra/llvm/invoker/invoker.factor

@@ -37,7 +37,7 @@ TUPLE: function name alien return params ;
 
 : install-function ( function -- )
     dup name>> "alien.llvm" create-vocab drop
-    "alien.llvm" create swap
+    "alien.llvm" create-word swap
     [
         dup name>> function-pointer ,
         dup return>> c:lookup-c-type ,

extra/math/dual/dual.factor

@@ -72,7 +72,7 @@ MACRO: dual-op ( word -- )
     '[ _ @ @ <dual> ] ;
 
 : define-dual ( word -- )
-    dup name>> "d" prepend "math.dual" create
+    dup name>> "d" prepend "math.dual" create-word
     [ [ stack-effect ] dip set-stack-effect ]
     [ set-dual-help ]
     [ swap '[ _ dual-op ] define ]

extra/smalltalk/classes/classes.factor

@@ -8,7 +8,7 @@ SYMBOL: classes
 classes [ H{ } clone ] initialize
 
 : create-class ( class -- class )
-    "smalltalk.classes" create ;
+    "smalltalk.classes" create-word ;
 
 ERROR: no-class name ;
 

extra/smalltalk/selectors/selectors.factor

@@ -21,7 +21,7 @@ SYMBOLS: unary binary keyword ;
     } case "receiver" suffix { "result" } <effect> ;
 
 : selector>generic ( selector -- generic )
-    [ "selector-" prepend "smalltalk.selectors" create dup ]
+    [ "selector-" prepend "smalltalk.selectors" create-word dup ]
     [ selector>effect ]
     bi define-simple-generic ;
 

extra/wordtimer/wordtimer.factor

@@ -1,6 +1,6 @@
-USING: kernel sequences namespaces make math assocs words arrays
+USING: accessors arrays assocs fry io kernel make math
-tools.annotations vocabs sorting prettyprint io system
+math.statistics namespaces prettyprint sequences sorting
-math.statistics accessors tools.time fry ;
+tools.annotations tools.time vocabs ;
 FROM: namespaces => change-global ;
 IN: wordtimer
 
@@ -44,10 +44,10 @@ SYMBOL: *calling*
     dup '[ [ _ ] dip (add-timer) ] annotate ;
 
 : add-timers ( vocab -- )
-    words [ add-timer ] each ;
+    vocab-words [ add-timer ] each ;
 
 : reset-vocab ( vocab -- )
-    words [ reset ] each ;
+    vocab-words [ reset ] each ;
 
 : dummy-word ( -- ) ;