fix known-words typo

library/bootstrap/boot-stage1.factor

@@ -158,7 +158,7 @@ vocabularies get [
     "!syntax" get "syntax" set
 
     "syntax" get hash-values [ word? ] subset
-    [ "syntax" "vocabulary" set-word-prop ] each
+    [ "syntax" swap set-word-vocabulary ] each
 ] bind
 
 "!syntax" vocabularies get remove-hash

library/bootstrap/boot-stage2.factor

@@ -76,13 +76,9 @@ t [
 compile? [
     "Compiling base..." print
 
-    \ car compile
-    \ * compile
-    \ = compile
-    \ string>number compile
-    \ number>string compile
-    \ scan compile
-    \ (generate) compile
+    [ car * = string>number number>string scan (generate) ]
+    [ compile ]
+    each
 ] when
 
 compile? [

library/bootstrap/primitives.factor

@@ -315,7 +315,7 @@ null null define-class
 "word" "words" create 17 "word?" "words" create {
     { 1 { "hashcode" "kernel" } f }
     { 2 { "word-name" "words" } f }
-    { 3 { "word-vocabulary" "words" } f }
+    { 3 { "word-vocabulary" "words" } { "set-word-vocabulary" "words" } }
     { 4 { "word-primitive" "words" } { "set-word-primitive" "words" } }
     { 5 { "word-def" "words" } { "set-word-def" "words" } }
     { 6 { "word-props" "words" } { "set-word-props" "words" } }

library/inference/known-words.factor

@@ -366,7 +366,7 @@ memory parser sequences strings vectors words prettyprint ;
 \ fsqrt t "flushable" set-word-prop
 \ fsqrt t "foldable" set-word-prop
 
-\ <word> [ [ ] [ word ] ] "infer-effect" set-word-prop
+\ <word> [ [ object object ] [ word ] ] "infer-effect" set-word-prop
 \ <word> t "flushable" set-word-prop
 
 \ update-xt [ [ word ] [ ] ] "infer-effect" set-word-prop