fix load errors

extra/shufflers/shufflers-docs.factor

@@ -1,4 +1,5 @@
-USING: shufflers help.syntax help.markup ;
+USING: help.syntax help.markup ;
+IN: shufflers
 
 HELP: SHUFFLE:
 { $syntax "SHUFFLE: alphabet #" }

extra/shufflers/shufflers.factor

@@ -29,7 +29,7 @@ IN: shufflers
 : define-shuffles ( names max-out -- )
     in-shuffle over length make-shuffles [
         [ shuffle>string create-in ] keep
-        shuffle>quot dupd define-compound put-effect
+        shuffle>quot dupd define put-effect
     ] with each out-shuffle ;
 
 : SHUFFLE:

extra/state-machine/state-machine.factor

@@ -7,7 +7,7 @@ IN: state-machine
     ";" parse-tokens
     [ length ] keep
     unclip add
-    [ create-in swap 1quotation define-compound ] 2each ; parsing
+    [ create-in swap 1quotation define ] 2each ; parsing
 
 TUPLE: state place data ;
 
@@ -27,7 +27,7 @@ M: missing-state error.
 
 : define-machine ( word state-class -- )
     execute make-machine
-    >r over r> define-compound
+    >r over r> define
     "state-table" set-word-prop ;
 
 : MACHINE:

extra/tools/deploy/shaker/shaker.factor

@@ -5,7 +5,7 @@ assocs kernel vocabs words sequences memory io system arrays
 continuations math definitions mirrors splitting parser classes
 inspector layouts vocabs.loader prettyprint.config prettyprint
 debugger io.streams.c io.streams.duplex io.files io.backend
-quotations words.private tools.deploy.config ;
+quotations words.private tools.deploy.config compliler.units ;
 IN: tools.deploy.shaker
 
 : show ( msg -- )