move promises to kernel-internals

diff --git a/library/bootstrap/boot.factor b/library/bootstrap/boot.factor
index 13835f9722742bbec67f863fd2d50ef265a3b482..2070c16fdecaa5b7693945a4a1bec43ff9b42a49 100644 (file)
--- a/library/bootstrap/boot.factor
+++ b/library/bootstrap/boot.factor
@@ -73,9 +73,11 @@ USE: hashtables
 
     "traits" [ "generic" ] search
     "delegate" [ "generic" ] search
+    "object" [ "generic" ] search
 
     vocabularies get [ "generic" off ] bind
 
+    reveal
     reveal
     reveal
 

diff --git a/library/bootstrap/primitives.factor b/library/bootstrap/primitives.factor
index 5fc225c065be87d7d31e3fff637be9e8576b7a12..ea17e4067cc01c33d2340c8aab24887e62589943 100644 (file)
--- a/library/bootstrap/primitives.factor
+++ b/library/bootstrap/primitives.factor
@@ -34,6 +34,7 @@ USE: parser
 USE: words
 USE: vectors
 USE: hashtables
+USE: generic
 
 ! Bring up a bare cross-compiling vocabulary.
 "syntax" vocab

diff --git a/library/generic/generic.factor b/library/generic/generic.factor
index 0dc345b5f27aa840b06cff1b6587fae0a056b168..7891288a397139d1be977c29457b259b2072bdc1 100644 (file)
--- a/library/generic/generic.factor
+++ b/library/generic/generic.factor
@@ -205,7 +205,7 @@ SYMBOL: object
     #! interpretation, but instructs the compiler that the value
     #! at the top of the stack is statically-known to be of the
     #! given type. Promises should only be used by kernel code.
-    dup word-name "%" swap cat2 "in" get create
+    dup word-name "%" swap cat2 "kernel-internals" create
     dup [ ] define-compound
     swap "promise" set-word-property ;