X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Finbox.scm;h=fbf8df08222310dfd2b74c4d6c8a088f9b54d62e;hb=refs%2Fheads%2Ffibers;hp=28e2c79d4fb56d330c5df202f4728a3b9de49f71;hpb=5f12e17b62324e34e5e81a1c2a21a46edc988705;p=8sync.git diff --git a/8sync/inbox.scm b/8sync/inbox.scm index 28e2c79..fbf8df0 100644 --- a/8sync/inbox.scm +++ b/8sync/inbox.scm @@ -30,8 +30,9 @@ ;; TODO: Add backpressure limit (define (delivery-agent inbox-enq inbox-deq stop?) "This starts up a loop doing delivery receiving from INBOX-ENQ and -delivering to INBOX-DEQ, actually managing an (ice-9 q) object QUEUE. -Atomic box STOP? can be set to indicate that this " +delivering to INBOX-DEQ, actually managing an internal object QUEUE. +Condidtion variable STOP? can be set to indicate that this agent +should stop." (define queue (make-q)) (define get-or-stop