Document and clean up alarms
parent
bbad200a01
commit
929aafadac
|
@ -73,7 +73,7 @@ SYMBOL: alarm-thread
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: add-alarm ( time delay quot -- alarm )
|
: add-alarm ( time frequency quot -- alarm )
|
||||||
<alarm> [
|
<alarm> [
|
||||||
dup dup alarm-time alarms get-global heap-push*
|
dup dup alarm-time alarms get-global heap-push*
|
||||||
swap alarm-entry >box
|
swap alarm-entry >box
|
||||||
|
|
Loading…
Reference in New Issue