From 5b4bd6ac4a32333b998ac6f18bcb7b19123709c5 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 24 Aug 2005 16:01:47 +0000
Subject: [PATCH] Changing let/cc to let/ec

svn: r645
---
 collects/web-server/servlet.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/web-server/servlet.ss b/collects/web-server/servlet.ss
index 75f9f13e14..f8e57bb35f 100644
--- a/collects/web-server/servlet.ss
+++ b/collects/web-server/servlet.ss
@@ -68,11 +68,11 @@
   ;; send/back a response generated from a procedure that may convert
   ;; procedures to continuation urls
   (define (send/suspend/dispatch response-generator)
-    (let/cc k0
+    (let/ec k0
       (send/back
        (response-generator
         (lambda (proc)
-          (let/cc k1 (k0 (proc (send/suspend k1)))))))))
+          (let/ec k1 (k0 (proc (send/suspend k1)))))))))
 
 
   ;; ************************************************************