promises: Rename
parent
b22ca7574b
commit
a7a065e315
|
@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
|
|||
namespaces parser effects.parser sequences words ;
|
||||
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 )
|
||||
dup forced?>> [
|
||||
|
|
Loading…
Reference in New Issue