From e7402e43879b7ffb9ebd26506db34398f1eb8fc6 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 29 Nov 2016 10:16:39 +1300 Subject: [PATCH] example-multiple-suspension-resumption.rkt --- .../example-multiple-suspension-resumption.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 racket/syndicate/examples/actor/example-multiple-suspension-resumption.rkt diff --git a/racket/syndicate/examples/actor/example-multiple-suspension-resumption.rkt b/racket/syndicate/examples/actor/example-multiple-suspension-resumption.rkt new file mode 100644 index 0000000..9525183 --- /dev/null +++ b/racket/syndicate/examples/actor/example-multiple-suspension-resumption.rkt @@ -0,0 +1,13 @@ +#lang syndicate/actor +;; Shows that the checks enforcing single-use suspension-resumption are working. + +(actor #:name 'shouldnt-work + (field [k #f]) + (on-start + (flush!) + (log-info "Result from suspension: ~v" + (react/suspend (actual-k) + (on-start (k actual-k) + ((k) 'first-result)))) + (flush!) + ((k) 'second-result)))