drracket: plumber for user process
The exit handler in the user process flushes via the plumber, but maybe DrRacket could do more with the user's plumber, such as attempting to exit instead of always forcing the old user process to terinate when the "Run" button is clicked.
This commit is contained in:
parent
01aec8f4cd
commit
0c7ebb9278
|
@ -1318,9 +1318,13 @@ TODO
|
|||
|
||||
(current-logger user-logger)
|
||||
|
||||
(define user-plumber (make-plumber))
|
||||
(current-plumber user-plumber)
|
||||
|
||||
(initialize-parameters snip-classes)
|
||||
(let ([drracket-exit-handler
|
||||
(λ (x)
|
||||
(plumber-flush-all user-plumber)
|
||||
(parameterize-break
|
||||
#f
|
||||
(let ([s (make-semaphore)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user