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

Cosmetic

This commit is contained in:
Tony Garnock-Jones 2016-08-10 19:03:52 -04:00
parent 6684c9e883
commit 956a940480
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/syndicate/examples/actor/queue.rkt
View File

@ -44,13 +44,10 @@
;; EFFECT: Spawn a queue process named `queue-id`.
(define (spawn-queue queue-id)
(actor #:name (list 'queue queue-id)
(react (define/query-hash credits (subscription queue-id $who) who 0) ;; Start with no credit
(field [waiters (make-queue)])
(react (field [waiters (make-queue)])
(field [messages (make-queue)])
(during (subscription queue-id $who)
(assert (metric (list 'credit queue-id who) (hash-ref (credits) who 0))))
(assert (metric (list 'backlog queue-id) (queue-length (messages))))
(define/query-hash credits (subscription queue-id $who) who 0) ;; Start with no credit
(on (message (credit queue-id $who $amount))
(define old-credit (hash-ref (credits) who #f))
@ -75,6 +72,10 @@
(log-info "~a: sending ~a message ~a" queue-id who msg)
(send! (delivery queue-id who msg)))))
(during (subscription queue-id $who)
(assert (metric (list 'credit queue-id who) (hash-ref (credits) who 0))))
(assert (metric (list 'backlog queue-id) (queue-length (messages))))
;;------------------------------------------------------------
(local-require (submod syndicate/actor priorities))