10 lines
198 B
Common Lisp
10 lines
198 B
Common Lisp
(define (observe dummmy)
|
|
(writeln 'observer 'rounds= rounds)
|
|
#t)
|
|
(define observer (make-task observe #t ))
|
|
|
|
(define (dinner)
|
|
(task-run observer 5000)
|
|
(for ((t tasks)) (task-run t)))
|
|
|
|
(dinner)
|