fix known-words typo

diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor
index 5777e4464545719e9f9c9d415f82e7b79d2a19fc..c11a3ed8f2e30b1512d9d486a2fa6ccf82b08ef4 100644 (file)
--- a/library/bootstrap/boot-stage1.factor
+++ b/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

diff --git a/library/bootstrap/boot-stage2.factor b/library/bootstrap/boot-stage2.factor
index 942bb83c84a4c644d89d4eaaf273f390bbbf3ef2..2e7e4ad1cee4cb98da7c44a39322663e18067caa 100644 (file)
--- a/library/bootstrap/boot-stage2.factor
+++ b/library/bootstrap/boot-stage2.factor
@@ -76,13 +76,9 @@ t [
 compile? [\r
     "Compiling base..." print\r
 \r
-    \ car compile\r
-    \ * compile\r
-    \ = compile\r
-    \ string>number compile\r
-    \ number>string compile\r
-    \ scan compile\r
-    \ (generate) compile\r
+    [ car * = string>number number>string scan (generate) ]\r
+    [ compile ]\r
+    each\r
 ] when\r
 \r
 compile? [\r

diff --git a/library/bootstrap/primitives.factor b/library/bootstrap/primitives.factor
index f5cd043ce536e0c72aa50b959da1ce18b4d1707a..78d4c52e27be78f706643232093c2a5cae65fbea 100644 (file)
--- a/library/bootstrap/primitives.factor
+++ b/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" } }

diff --git a/library/inference/known-words.factor b/library/inference/known-words.factor
index 6ff698eebe155ce8c43ad4098cebc5e53a0ad321..da53231ff5bf55375f1d5b501b0b0c29d20b344b 100644 (file)
--- a/library/inference/known-words.factor
+++ b/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