syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Tony Garnock-Jones 2018-04-08 12:06:37 +01:00
parent eb24d566e9
commit bd9dcb61ca
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
syndicate/syntax.rkt
View File

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