Bag no longer used in federation
This commit is contained in:
parent
921265d2f3
commit
be8fefaf4d
|
@ -6,7 +6,6 @@
|
|||
(require "protocol.rkt")
|
||||
|
||||
(require imperative-syndicate/term)
|
||||
(require imperative-syndicate/bag)
|
||||
(require imperative-syndicate/reassert)
|
||||
(require racket/set)
|
||||
|
||||
|
@ -319,7 +318,7 @@
|
|||
(define known? (hash-has-key? (specs) spec))
|
||||
(define localid (if known? (hash-ref (specs) spec) (make-localid)))
|
||||
(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))
|
||||
(cond
|
||||
[(hash-has-key? holders linkid)
|
||||
|
|
Loading…
Reference in New Issue