move promises to kernel-internals
parent
6ac8fdb22f
commit
f397fc951b
|
|
@ -73,9 +73,11 @@ USE: hashtables
|
||||||
|
|
||||||
"traits" [ "generic" ] search
|
"traits" [ "generic" ] search
|
||||||
"delegate" [ "generic" ] search
|
"delegate" [ "generic" ] search
|
||||||
|
"object" [ "generic" ] search
|
||||||
|
|
||||||
vocabularies get [ "generic" off ] bind
|
vocabularies get [ "generic" off ] bind
|
||||||
|
|
||||||
|
reveal
|
||||||
reveal
|
reveal
|
||||||
reveal
|
reveal
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -34,6 +34,7 @@ USE: parser
|
||||||
USE: words
|
USE: words
|
||||||
USE: vectors
|
USE: vectors
|
||||||
USE: hashtables
|
USE: hashtables
|
||||||
|
USE: generic
|
||||||
|
|
||||||
! Bring up a bare cross-compiling vocabulary.
|
! Bring up a bare cross-compiling vocabulary.
|
||||||
"syntax" vocab
|
"syntax" vocab
|
||||||
|
|
|
||||||
|
|
@ -205,7 +205,7 @@ SYMBOL: object
|
||||||
#! interpretation, but instructs the compiler that the value
|
#! interpretation, but instructs the compiler that the value
|
||||||
#! at the top of the stack is statically-known to be of the
|
#! at the top of the stack is statically-known to be of the
|
||||||
#! given type. Promises should only be used by kernel code.
|
#! 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
|
dup [ ] define-compound
|
||||||
swap "promise" set-word-property ;
|
swap "promise" set-word-property ;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue