diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index 0407ab7..e2882a1 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -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)))