original commit: e7ee175c42d43fda598c869175ce832c9049ec75
This commit is contained in:
Matthew Flatt 2000-07-24 21:36:29 +00:00
parent bd9fc6659c
commit eb096f689a

View File

@ -91,7 +91,7 @@
(polymorphic
(lambda (thunk)
(let/ec escape
(with-handlers ([void (lambda (x) (escape (void)))])
(with-handlers ([not-break-exn? (lambda (x) (escape (void)))])
(thunk))))))
(define remove