.
original commit: 7abaf5b315ac05cb5497b3142f2cafbd0dc46edf
This commit is contained in:
parent
fbf52dc88d
commit
b147e88e14
|
@ -146,7 +146,7 @@
|
|||
;; Make a custodian for the next session:
|
||||
(let ([c (make-custodian)])
|
||||
(parameterize ([current-custodian c])
|
||||
;; disabled breaks during session set-up...
|
||||
;; disable breaks during session set-up...
|
||||
(parameterize ([break-enabled #f])
|
||||
;; ... but enabled breaks while blocked on an accept:
|
||||
(let-values ([(r w) ((if can-break?
|
||||
|
|
Loading…
Reference in New Issue
Block a user