Changeset 3699 for src/Pugs/Compile/Parrot.hs

Timestamp:

05/23/05 02:10:53 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5201

Message:

* unbreak Parrot compilation in light of the tabulaRasa change

that includes compile-time pads.

Files:

• src/Pugs/Compile/Parrot.hs (modified) (2 diffs)

src/Pugs/Compile/Parrot.hs

@@ -60 +60 @@
 
 instance Compile (Var, [(TVar Bool, TVar VRef)]) where
+    compile ((_:'?':_), _) = return empty -- XXX - @?INIT etc; punt for now
+    compile ((_:'=':_), _) = return empty -- XXX - @=POS etc; punt for now
     compile (('&':name), [(_, sym)]) = do
         ret <- askPMC
@@ -71 +73 @@
     compile ((':':name), [(_, _)]) =
         return $ text ".namespace" <+> text "['" <> text name <> text "']"
-    compile _ = error "fnord"
+    -- compile v = error $ show v
+    compile _ = return $ empty
 
 instance Compile (TVar VRef) where