Changeset 3506 for src/Pugs/Types/Code.hs

Timestamp:

05/20/05 17:14:27 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5078

Message:

* Anonymous and named coro {...} with yield() landed. Highly experimental!

(The semantics is burrowed from Coro::Cont from CPAN.)

Files:

• src/Pugs/Types/Code.hs (modified) (1 diff)

src/Pugs/Types/Code.hs

@@ -27 +27 @@
     code_iType c  = case subType c of
         SubBlock    -> mkType "Block"
-        SubRoutine  -> mkType "Sub"
-        SubPrim     -> mkType "Sub"
         SubMethod   -> mkType "Method"
+        _           -> mkType "Sub"
     code_fetch    = return
     code_store _ _= retConstError undef