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

Bag no longer used in federation

This commit is contained in:
Tony Garnock-Jones 2019-05-23 11:13:47 +01:00
parent 921265d2f3
commit be8fefaf4d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
syndicate/distributed/federation.rkt
View File

@ -6,7 +6,6 @@
(require "protocol.rkt") (require "protocol.rkt")
(require imperative-syndicate/term) (require imperative-syndicate/term)
(require imperative-syndicate/bag)
(require imperative-syndicate/reassert) (require imperative-syndicate/reassert)
(require racket/set) (require racket/set)
@ -319,7 +318,7 @@
(define known? (hash-has-key? (specs) spec)) (define known? (hash-has-key? (specs) spec))
(define localid (if known? (hash-ref (specs) spec) (make-localid))) (define localid (if known? (hash-ref (specs) spec) (make-localid)))
(define sub (define sub
(hash-ref (subs) localid (lambda () (subscription localid spec (hash) (bag))))) (hash-ref (subs) localid (lambda () (subscription localid spec (hash) (hash)))))
(define holders (subscription-holders sub)) (define holders (subscription-holders sub))
(cond (cond
[(hash-has-key? holders linkid) [(hash-has-key? holders linkid)