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

Remove alarms from using list, minor refactoring

db4
Doug Coleman 2010-05-21 20:48:33 -05:00
parent 6e8e487b6b
commit 8935105537
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/furnace/cache/cache.factor vendored
View File

@ -1,7 +1,7 @@
! 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: kernel accessors math.intervals USING: kernel accessors math.intervals
system calendar alarms fry system calendar fry
random db db.tuples db.types random db db.tuples db.types
http.server.filters ; http.server.filters ;
IN: furnace.cache IN: furnace.cache

5
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 kernel models alarms ; USING: accessors alarms fry kernel models ;
IN: models.delay IN: models.delay
TUPLE: delay < model model timeout alarm ; TUPLE: delay < model model timeout alarm ;
@ -19,7 +19,8 @@ TUPLE: delay < model model timeout alarm ;
: start-delay ( delay -- ) : start-delay ( delay -- )
dup dup
[ [ f >>alarm update-delay-model ] curry ] [ timeout>> ] bi later [ '[ _ f >>alarm update-delay-model ] ] [ timeout>> ] bi
later
>>alarm drop ; >>alarm drop ;
M: delay model-changed nip dup stop-delay start-delay ; M: delay model-changed nip dup stop-delay start-delay ;

2
basis/models/models.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2008 Slava Pestov. ! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors generic kernel math sequences arrays assocs USING: accessors generic kernel math sequences arrays assocs
alarms calendar math.order continuations fry ; calendar math.order continuations fry ;
IN: models IN: models
TUPLE: model < identity-tuple TUPLE: model < identity-tuple