From 1c8bc10691be4f9eabb1ec16ebf093d1e8bbda91 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 29 Aug 2005 07:56:36 +0000
Subject: [PATCH] fix known-words typo

---
 library/bootstrap/boot-stage1.factor |  2 +-
 library/bootstrap/boot-stage2.factor | 10 +++-------
 library/bootstrap/primitives.factor  |  2 +-
 library/inference/known-words.factor |  2 +-
 4 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor
index 5777e44645..c11a3ed8f2 100644
--- 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 942bb83c84..2e7e4ad1ce 100644
--- a/library/bootstrap/boot-stage2.factor
+++ b/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? [
diff --git a/library/bootstrap/primitives.factor b/library/bootstrap/primitives.factor
index f5cd043ce5..78d4c52e27 100644
--- 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 6ff698eebe..da53231ff5 100644
--- 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