Changeset 14414 for src/Pugs/Compile

Timestamp:

10/18/06 19:03:14 (2 years ago)

Author:

audreyt

Message:

* Pugs.Compile.Pugs: Repair -CPugs, and by extension pugscc

Files:

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

src/Pugs/Compile/Pugs.hs

@@ -57 +57 @@
     compile (Val val) = do
         compWith "Val" [compile val]
+    compile (Var var) = do
+        compWith "Var" [compile var]
     compile exp = ret $ "(" ++ show exp ++ ")"
+
+instance Compile Var where
+    compile var = ret $ "(cast " ++ show var ++ ")"
 
 instance Compile Pad where
@@ -76 +81 @@
             tvarsC <- fmap (filter (not . Str.null)) $ mapM compile tvars
             if null tvarsC then return Str.empty else do
-            return $ Str.concat [pl, Str.pack (cast var), Str.pack ", [", joinMany tvarsC, br, pr]
+            return $ Str.concat [pl, (Str.pack ("cast " ++ show (cast var :: String))), Str.pack ", [", joinMany tvarsC, br, pr]
 
 instance (Typeable a) => Compile (Maybe (TVar a)) where