From 908ad343000c434b5caf11c2416820ffdecc1cda Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 7 May 1997 17:35:59 +0000
Subject: [PATCH] release

original commit: 85350de3669c7fc941c58f29d95e650462c6a719
---
 collects/mzlib/match.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index bac0b8a..a9cd709 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -1053,7 +1053,7 @@ eta)))
 ,fail-sym
 ,@(map val
 bv))))
-`(call-with-current-continuation
+`(call/ec
 (lambda (,fail-sym)
 (let ((,fail-sym (lambda ()
 ;; Changed CF 9.24.96 for multiple value returns