Remove alarms from using list, minor refactoring
parent
6e8e487b6b
commit
8935105537
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel accessors math.intervals
|
||||
system calendar alarms fry
|
||||
system calendar fry
|
||||
random db db.tuples db.types
|
||||
http.server.filters ;
|
||||
IN: furnace.cache
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors kernel models alarms ;
|
||||
USING: accessors alarms fry kernel models ;
|
||||
IN: models.delay
|
||||
|
||||
TUPLE: delay < model model timeout alarm ;
|
||||
|
@ -19,7 +19,8 @@ TUPLE: delay < model model timeout alarm ;
|
|||
|
||||
: start-delay ( delay -- )
|
||||
dup
|
||||
[ [ f >>alarm update-delay-model ] curry ] [ timeout>> ] bi later
|
||||
[ '[ _ f >>alarm update-delay-model ] ] [ timeout>> ] bi
|
||||
later
|
||||
>>alarm drop ;
|
||||
|
||||
M: delay model-changed nip dup stop-delay start-delay ;
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2006, 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors generic kernel math sequences arrays assocs
|
||||
alarms calendar math.order continuations fry ;
|
||||
calendar math.order continuations fry ;
|
||||
IN: models
|
||||
|
||||
TUPLE: model < identity-tuple
|
||||
|
|
Loading…
Reference in New Issue