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

View File

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

View File

@ -14,7 +14,7 @@ TUPLE: history < model back forward ;
reset-history ;
: (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 -- )
dup empty?
@ -22,11 +22,11 @@ TUPLE: history < model back forward ;
[ >r dupd (add-history) r> pop swap set-model ] if ;
: go-back ( history -- )
dup history-forward over history-back go-back/forward ;
dup [ forward>> ] [ back>> ] bi go-back/forward ;
: go-forward ( history -- )
dup history-back over history-forward go-back/forward ;
dup [ back>> ] [ forward>> ] bi go-back/forward ;
: add-history ( history -- )
dup history-forward delete-all
dup history-back (add-history) ;
dup forward>> delete-all
dup back>> (add-history) ;