promises: Rename
parent
b22ca7574b
commit
a7a065e315
|
@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
|
||||||
namespaces parser effects.parser sequences words ;
|
namespaces parser effects.parser sequences words ;
|
||||||
IN: promises
|
IN: promises
|
||||||
|
|
||||||
TUPLE: promise quot forced? value ;
|
TUPLE: promise-state quot forced? value ;
|
||||||
|
|
||||||
: promise ( quot -- promise ) f f \ promise boa ;
|
: promise ( quot -- promise ) f f \ promise-state boa ;
|
||||||
|
|
||||||
: force ( promise -- value )
|
: force ( promise -- value )
|
||||||
dup forced?>> [
|
dup forced?>> [
|
||||||
|
|
Loading…
Reference in New Issue