suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 961d587852c4dda1d7ef70007eea27704bef7a2f
This commit is contained in:
Matthew Flatt 2001-05-21 14:33:15 +00:00
parent ca05c59692
commit cbe2acae13
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/string.ss
View File

@ -47,7 +47,8 @@
(if (or error-display error-result)
(with-handlers ([void
(lambda (exn)
((or error-display (error-display-handler))
((or error-display (lambda (x)
((error-display-handler) x exn)))
(exn-message exn))
(if error-result
(error-result)
@ -73,7 +74,8 @@
(if error-display
(with-handlers ([void
(lambda (exn)
((or error-display (error-display-handler))
((or error-display (lambda (x)
((error-display-handler) x exn)))
(exn-message exn))
(k (if error-result
(error-result)