From cbe2acae13c18616a0b3851316fdc2f6b1f3135f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 21 May 2001 14:33:15 +0000 Subject: [PATCH] . original commit: 961d587852c4dda1d7ef70007eea27704bef7a2f --- collects/mzlib/string.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss index 51c6566..269d1bc 100644 --- a/collects/mzlib/string.ss +++ b/collects/mzlib/string.ss @@ -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)