Remove unused dataspace-actors field
This commit is contained in:
parent
55f4b55784
commit
b50d18cd46
|
@ -79,7 +79,6 @@
|
|||
|
||||
(struct dataspace ([next-id #:mutable] ;; Nat
|
||||
routing-table ;; Skeleton
|
||||
actors ;; (MutableHash ActorID Actor)
|
||||
;; v TODO: Caches have to be bags, not sets; once
|
||||
;; this change is made, can I avoid keeping a bag
|
||||
;; of assertions in the dataspace as a whole?
|
||||
|
@ -203,7 +202,6 @@
|
|||
(define (make-dataspace name boot-proc)
|
||||
(dataspace 0
|
||||
(make-empty-skeleton)
|
||||
(make-hash)
|
||||
(make-bag)
|
||||
(make-dataflow-graph)
|
||||
'()
|
||||
|
@ -223,7 +221,6 @@
|
|||
(make-vector priority-count (make-queue))
|
||||
(make-queue)
|
||||
(set)))
|
||||
(hash-set! (dataspace-actors ds) the-actor-id the-actor)
|
||||
(for [(a initial-assertions)]
|
||||
(match (bag-change! (dataspace-assertions ds) a 1)
|
||||
['absent->present (add-assertion! (dataspace-routing-table ds) a)]
|
||||
|
@ -397,7 +394,6 @@
|
|||
|
||||
;; Abruptly terminates an entire actor, without running stop-scripts etc.
|
||||
(define (terminate-actor! ds the-actor)
|
||||
(hash-remove! (dataspace-actors ds) (actor-id the-actor))
|
||||
(push-script! ds the-actor
|
||||
(lambda () (for [(a (actor-adhoc-assertions the-actor))] (retract! the-actor a))))
|
||||
(let ((f (actor-root-facet the-actor)))
|
||||
|
|
Loading…
Reference in New Issue