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

models.delay: some cleanup.

db4
John Benediktsson 2014-11-29 22:12:16 -08:00
parent c2261c05fd
commit b360860ecd
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors timers fry kernel models ; USING: accessors fry kernel models timers ;
IN: models.delay IN: models.delay
TUPLE: delay < model model timeout timer ; TUPLE: delay < model model timeout timer ;
@ -18,10 +18,9 @@ TUPLE: delay < model model timeout timer ;
timer>> [ stop-timer ] when* ; timer>> [ stop-timer ] when* ;
: start-delay ( delay -- ) : start-delay ( delay -- )
dup [ '[ _ f >>timer update-delay-model ] ]
[ '[ _ f >>timer update-delay-model ] ] [ timeout>> ] bi [ timeout>> later ]
later [ timer<< ] tri ;
>>timer drop ;
M: delay model-changed nip dup stop-delay start-delay ; M: delay model-changed nip dup stop-delay start-delay ;