fine to save an escape continuation for sk

svn: r3382
2006-06-16 20:23:00 +00:00 · 2006-06-16 20:23:00 +00:00 · 88eac10651
commit 88eac10651
parent a54293ede2
1 changed files with 1 additions and 1 deletions
--- 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)) ...