diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index b16bd19..9725a4d 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -626,6 +626,13 @@ (lambda () (schedule-script! (current-dataspace) + #;(lambda () + (spawn (on (message $v) + (if (= v 10000000) + (stop-current-facet) + (send! (+ v 1)))) + (on-start (send! 0))) + ) (lambda () (spawn (field [current-value 0]) (assert (box-state (current-value))) @@ -640,7 +647,8 @@ (on (asserted (box-state $v)) (log-info "client: learned that box's value is now ~v" v) (send! (set-box (+ v 1))))) - ))))) + ) + )))) (require racket/pretty) ;; (pretty-print ds)