Changeset 13147 for src/Pugs/Compile

Timestamp:

09/09/06 22:38:00 (2 years ago)

Author:

lumi

Message:

My local pugs branch
The battle continues
Closure traits that work!
Reverted irrelevancies

Files:

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

src/Pugs/Compile/Pugs.hs

@@ -145 +145 @@
     -- compile MkCode{ subBody = Prim _ } = return $ text "return mkPrim"
     compile MkCode{ subBody = Prim _ } = return Str.empty
-    compile (MkCode v1 v2 v3 _ v4 v5 v6 v7 v8 v9 v10 _) = do 
+    -- XXX - Ew. This signature can't be right.
+    compile (MkCode v1 v2 v3 _ v4 v5 v6 v7 v8 v9 v10 _ _ _ _ _ _ _ _ _ _ _ _) = do 
         compWith "MkCode"
             [ compile v1