From 31e4a765a9c1889fdbe6dcaa88f43e9577cec7db Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 14 Feb 2005 14:50:56 +0000 Subject: [PATCH] . original commit: bc7f7ad1e6fcfbe116d05ff36cdefe0148ede5c8 --- collects/mzlib/plt-match.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.ss index a862a6d..1d6fb60 100644 --- a/collects/mzlib/plt-match.ss +++ b/collects/mzlib/plt-match.ss @@ -173,13 +173,13 @@ ((val) (raise (make-exn:misc:match - (format "match: no matching clause for ~e" val) + (string->immutable-string (format "match: no matching clause for ~e" val)) (current-continuation-marks) val))) ((val expr) (raise (make-exn:misc:match - (format "match: no matching clause for ~e: ~s" val expr) + (string->immutable-string (format "match: no matching clause for ~e: ~s" val expr)) (current-continuation-marks) val)))))