Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 09dbb6a6c4
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (12 sloc) 0.449 kB
; translation of example app03.c from Ken distribution
; illustrates Ken alarms
; note: ken-next-alarm not yet implemented!
(begin
(define count 0)
(set! ken-receive-handler
(lambda (id msg)
(if (eq? id (ken-alarm-id))
(display "I've gotten " count " messages")
(display "news just arrived: message " (set! count (+ 1 count))))
(set! ken-next-alarm (* 1000 1000))))
(display "the world is exciting and new!"))
Jump to Line
Something went wrong with that request. Please try again.