Simple messages-per-second test (~195kHz at present)

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)