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

Remove unused dataspace-actors field

This commit is contained in:
Tony Garnock-Jones 2018-04-22 20:59:57 +01:00
parent 55f4b55784
commit b50d18cd46
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/dataspace.rkt
View File

@ -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)))