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

new accessors

db4
Doug Coleman 2008-08-31 02:51:09 -05:00
parent e9d298b3ed
commit c87d6be1a5
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/models/delay/delay.factor
View File

@ -6,7 +6,7 @@ IN: models.delay
TUPLE: delay < model model timeout alarm ; TUPLE: delay < model model timeout alarm ;
: update-delay-model ( delay -- ) : update-delay-model ( delay -- )
[ delay-model model-value ] keep set-model ; [ model>> value>> ] keep set-model ;
: <delay> ( model timeout -- delay ) : <delay> ( model timeout -- delay )
f delay new-model f delay new-model
@ -15,7 +15,7 @@ TUPLE: delay < model model timeout alarm ;
[ add-dependency ] keep ; [ add-dependency ] keep ;
: cancel-delay ( delay -- ) : cancel-delay ( delay -- )
delay-alarm [ cancel-alarm ] when* ; alarm>> [ cancel-alarm ] when* ;
: start-delay ( delay -- ) : start-delay ( delay -- )
dup dup

10
basis/models/history/history.factor
View File

@ -14,7 +14,7 @@ TUPLE: history < model back forward ;
reset-history ; reset-history ;
: (add-history) ( history to -- ) : (add-history) ( history to -- )
swap model-value dup [ swap push ] [ 2drop ] if ; swap value>> dup [ swap push ] [ 2drop ] if ;
: go-back/forward ( history to from -- ) : go-back/forward ( history to from -- )
dup empty? dup empty?
@ -22,11 +22,11 @@ TUPLE: history < model back forward ;
[ >r dupd (add-history) r> pop swap set-model ] if ; [ >r dupd (add-history) r> pop swap set-model ] if ;
: go-back ( history -- ) : go-back ( history -- )
dup history-forward over history-back go-back/forward ; dup [ forward>> ] [ back>> ] bi go-back/forward ;
: go-forward ( history -- ) : go-forward ( history -- )
dup history-back over history-forward go-back/forward ; dup [ back>> ] [ forward>> ] bi go-back/forward ;
: add-history ( history -- ) : add-history ( history -- )
dup history-forward delete-all dup forward>> delete-all
dup history-back (add-history) ; dup back>> (add-history) ;