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