move promises to kernel-internals

cvs
Slava Pestov 2004-12-31 23:51:34 +00:00
parent 6ac8fdb22f
commit f397fc951b
3 changed files with 4 additions and 1 deletions

View File

@ -73,9 +73,11 @@ USE: hashtables
"traits" [ "generic" ] search
"delegate" [ "generic" ] search
"object" [ "generic" ] search
vocabularies get [ "generic" off ] bind
reveal
reveal
reveal

View File

@ -34,6 +34,7 @@ USE: parser
USE: words
USE: vectors
USE: hashtables
USE: generic
! Bring up a bare cross-compiling vocabulary.
"syntax" vocab

View File

@ -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 ;