steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

promises: rename.

db4
John Benediktsson 2013-03-24 15:33:19 -07:00
parent 1032037bf2
commit 974863dd44
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/promises/promises.factor
View File

@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
namespaces parser effects.parser sequences words ;
IN: promises
TUPLE: promise-state quot forced? value ;
TUPLE: promise quot forced? value ;
: promise ( quot -- promise ) f f \ promise-state boa ;
: <promise> ( quot -- promise ) f f promise boa ;
: force ( promise -- value )
dup forced?>> [
@ -16,7 +16,7 @@ TUPLE: promise-state quot forced? value ;
value>> ;
: make-lazy-quot ( quot effect -- quot )
in>> length '[ _ _ ncurry promise ] ;
in>> length '[ _ _ ncurry <promise> ] ;
SYNTAX: LAZY:
(:) [ make-lazy-quot ] [ 2nip ] 3bi define-declared ;