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

Support #:exit? on ide-dataspace

This commit is contained in:
Tony Garnock-Jones 2016-09-05 11:22:13 +01:00
parent 497b63699c
commit 0ef2a621d1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate-ide/main.rkt
View File

@ -199,7 +199,7 @@
[(process _name _beh (relay _ _ _ _ _ (process _inner-name _inner-beh (? dataspace? _)))) #t]
[_ #f]))
(define ((ide-dataspace) . boot-actions)
(define ((ide-dataspace #:exit? [exit? #t]) . boot-actions)
(define from-user-thread-ch (make-async-channel))
(define user-thread
@ -211,7 +211,7 @@
(signal-background-activity! #t)
(with-store ((current-trace-procedures '()))
((2d-dataspace #:label "Syndicate IDE")
((2d-dataspace #:label "Syndicate IDE" #:exit? exit?)
(actor #:name 'user-thread-death-monitor
(field [user-thread-running? #t])