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)))