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:14:01 -04:00
parent a890a7147b
commit fe47abd540
3 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate/examples/actor/queue-no-credit.rkt
View File

@ -47,8 +47,7 @@
(define/query-set subscribers (subscription queue-id $who) who
#:on-add (enq! waiters who))
(on (message (delivery $who queue-id $body))
(enq! messages body))
(on (message (delivery $who queue-id $body)) (enq! messages body))
(begin/dataflow
(when (and (not (queue-empty? (waiters)))

4
racket/syndicate/examples/actor/queue-no-credit2.rkt
View File

@ -46,9 +46,7 @@
(on (asserted (subscription queue-id $who)) (enq! waiters who))
(on (retracted (subscription queue-id $who)) (waiters (queue-remove who (waiters))))
(on (message (delivery $who queue-id $body))
(enq! messages body))
(on (message (delivery $who queue-id $body)) (enq! messages body))
(begin/dataflow
(when (and (not (queue-empty? (waiters)))

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

@ -64,7 +64,7 @@
(not (queue-empty? (messages))))
(define who (deq! waiters))
(define old-credit (hash-ref (credits) who 0))
(when (positive? old-credit)
(when (positive? old-credit) ;; lazily remove entries from waiters
(define new-credit (- old-credit 1))
(credits (hash-set (credits) who new-credit))
(when (positive? new-credit) (enq! waiters who))