original commit: 7abaf5b315ac05cb5497b3142f2cafbd0dc46edf
This commit is contained in:
Matthew Flatt 2001-09-21 23:10:55 +00:00
parent fbf52dc88d
commit b147e88e14

View File

@ -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?