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

Be specific in for-loops

This commit is contained in:
Tony Garnock-Jones 2018-04-25 19:47:18 +01:00
parent c06d5ba3ce
commit dfe8a3e96e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/dataspace.rkt
View File

@ -413,7 +413,8 @@
;; 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)
(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 (in-set (actor-adhoc-assertions the-actor)))]
(retract! the-actor a))))
(let ((f (actor-root-facet the-actor))) (let ((f (actor-root-facet the-actor)))
(when f (when f
(let abort-facet! ((f f)) (let abort-facet! ((f f))
@ -436,7 +437,7 @@
;; Run stop-scripts after terminating children. This means that ;; Run stop-scripts after terminating children. This means that
;; children's stop-scripts run before ours. ;; children's stop-scripts run before ours.
(for [(script (reverse (facet-stop-scripts f)))] (for [(script (in-list (reverse (facet-stop-scripts f))))]
(schedule-script! ds (schedule-script! ds
ac ac
(lambda () (lambda ()