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

alarms: fix next-alarm word

db4
Slava Pestov 2009-11-16 13:25:54 -06:00
parent e30d275e41
commit f302cc3e2c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/alarms/alarms.factor
View File

@ -60,8 +60,11 @@ SYMBOL: alarm-thread
monotonic-count (trigger-alarms) ; monotonic-count (trigger-alarms) ;
: next-alarm ( alarms -- timestamp/f ) : next-alarm ( alarms -- timestamp/f )
dup heap-empty? dup heap-empty? [ drop f ] [
[ drop f ] [ heap-peek drop start>> ] if ; heap-peek drop start>>
monotonic-count swap -
nanoseconds hence
] if ;
: alarm-thread-loop ( -- ) : alarm-thread-loop ( -- )
alarms get-global alarms get-global
@ -78,7 +81,7 @@ SYMBOL: alarm-thread
[ alarm-thread-loop t ] "Alarms" spawn-server [ alarm-thread-loop t ] "Alarms" spawn-server
alarm-thread set-global ; alarm-thread set-global ;
[ init-alarms ] "alarms2" add-startup-hook [ init-alarms ] "alarms" add-startup-hook
PRIVATE> PRIVATE>