From b9dfd79f34a6feb22095b70bee93e82885693618 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 4 May 2017 09:08:47 -0400 Subject: [PATCH] example-bug-rising-edge-true.rkt --- .../examples/actor/example-bug-rising-edge-true.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 racket/syndicate/examples/actor/example-bug-rising-edge-true.rkt diff --git a/racket/syndicate/examples/actor/example-bug-rising-edge-true.rkt b/racket/syndicate/examples/actor/example-bug-rising-edge-true.rkt new file mode 100644 index 0000000..0333c3c --- /dev/null +++ b/racket/syndicate/examples/actor/example-bug-rising-edge-true.rkt @@ -0,0 +1,10 @@ +#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")))