|
#lang syndicate/actor
|
|
;; Demonstrates a bug: rising-edge of a predicate that starts off true
|
|
;; yields a crash.
|
|
|
|
(spawn (field [f #t])
|
|
(stop-when (rising-edge (f))
|
|
(printf "Stopping (via field).\n")))
|
|
|
|
(spawn (stop-when (rising-edge #t)
|
|
(printf "Stopping (direct).\n")))
|