From 88eac10651439d8d7df5c124fde3a5c40c3fbd82 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 16 Jun 2006 20:23:00 +0000
Subject: [PATCH] fine to save an escape continuation for sk

svn: r3382
---
 collects/swindle/extra.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index 65bf69d75e..0ff3ebf6e4 100644
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@@ -894,7 +894,7 @@
 ;;>   `(amb)' fails immediately.
 (defsubst* (amb expr ...)
   (let ([prev-amb-fail (amb-fail)])
-    (let/cc sk
+    (let/ec sk
       (let/cc fk
         (amb-fail (thunk (amb-fail prev-amb-fail) (fk 'fail)))
         (sk expr)) ...