move promises to kernel-internals
parent
6ac8fdb22f
commit
f397fc951b
|
|
@ -73,9 +73,11 @@ USE: hashtables
|
|||
|
||||
"traits" [ "generic" ] search
|
||||
"delegate" [ "generic" ] search
|
||||
"object" [ "generic" ] search
|
||||
|
||||
vocabularies get [ "generic" off ] bind
|
||||
|
||||
reveal
|
||||
reveal
|
||||
reveal
|
||||
|
||||
|
|
|
|||
|
|
@ -34,6 +34,7 @@ USE: parser
|
|||
USE: words
|
||||
USE: vectors
|
||||
USE: hashtables
|
||||
USE: generic
|
||||
|
||||
! Bring up a bare cross-compiling vocabulary.
|
||||
"syntax" vocab
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue