Changeset 2655

Timestamp:

05/03/05 20:09:07 (4 years ago)

Author:

jhorwitz

svk:copy_cache_prev:

4152

Message:

remove module support until we can emit code outside of the main sub

Files:

• src/Pugs/Compile/Parrot.hs (modified) (1 diff)

src/Pugs/Compile/Parrot.hs

@@ -177 +177 @@
             , label last
             ]
-    compile (Syn "module" [Val (VStr ns)]) = do
-        return $ text ".namespace ['_Pugs::" <> text ns <> text "']"
+    -- XXX broken! this needs to emit IMC *outside* of the main sub
+    -- compile (Syn "module" [Val (VStr ns)]) = do
+    --    return $ text ".namespace ['_Pugs::" <> text ns <> text "']"
     compile (App "&return" [] [val]) = do
         (valC, p) <- compileArg val