From 4ff0476c11960e58528b508127795366c04ab9b1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 16 Jul 2001 01:00:51 +0000 Subject: [PATCH] . original commit: 9e1b5cd5cf75f3935e40be59df0f9cc5ba8a8430 --- collects/mzlib/match.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss index 47c45d9..a248de2 100644 --- a/collects/mzlib/match.ss +++ b/collects/mzlib/match.ss @@ -116,13 +116,13 @@ ((val) (raise (make-exn:misc:match - (format "match: no matching clause for ~s" val) + (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 ~s: ~s" val expr) + (format "match: no matching clause for ~e: ~s" val expr) (current-continuation-marks) val)))))