promises: Rename

db4
Doug Coleman 2013-03-24 10:10:39 -07:00
parent b22ca7574b
commit a7a065e315
1 changed files with 2 additions and 2 deletions

View File

@ -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?>> [