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

fixed fold-model

db4
Sam Anklesaria 2009-05-30 12:13:13 -05:00
parent 588a04c62d
commit 3adff7ebe9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/frp/signals/signals.factor
View File

@ -18,11 +18,11 @@ M: filter-model (model-changed) [ value>> ] dip 2dup quot>> call( a -- ? )
[ set-model ] [ 2drop ] if ;
: <filter> ( model quot -- filter-signal ) [ 1array filter-model <multi-model> ] dip >>quot ;
TUPLE: fold-model < multi-model oldval quot ;
M: fold-model (model-changed) [ [ value>> ] [ [ oldval>> ] [ quot>> ] bi ] bi*
TUPLE: fold-model < multi-model quot ;
M: fold-model (model-changed) [ [ value>> ] [ [ value>> ] [ quot>> ] bi ] bi*
call( val oldval -- newval ) ] keep set-model ;
: <fold> ( model oldval quot -- signal ) rot 1array fold-model <multi-model> swap >>quot
swap [ >>oldval ] [ >>value ] bi ;
swap >>value ;
TUPLE: updater-model < multi-model values updates ;
M: updater-model (model-changed) tuck updates>> =