
changed WHERE from a behavior to an event and updated sprofiler-mztake accordingly svn: r1617
6 lines
170 B
Scheme
6 lines
170 B
Scheme
(module highway mzscheme
|
|
(let ([nap-time 0.8])
|
|
(let loop ([speed 0])
|
|
(sleep nap-time)
|
|
;; Generate some fake speeds readings:
|
|
(loop (+ speed 4))))) |