Changeset 5456 for src/Pugs/Monads.hs

Timestamp:

07/12/05 01:41:41 (3 years ago)

Author:

nothingmuch

svk:copy_cache_prev:

7349

Message:

Fix geoffb++'s next in while bug... next is now implemented with
continuations. redo is still needed, as are tests.

Files:

• src/Pugs/Monads.hs (modified) (1 diff)

src/Pugs/Monads.hs

@@ -119 +119 @@
            -> Eval Val
 enterWhile action = genSymCC "&last" $ \symLast -> do
-    genSymPrim "&next" (const action) $ \symNext -> do
+    -- genSymPrim "&next" (const action) $ \symNext -> do
+    callCC $ \esc -> genSymPrim "&next" (const $ action >>= esc) $ \symNext -> do
         enterLex [symLast, symNext] action