Changeset 21930 for src/Pugs/Compile.hs

Timestamp:

08/18/08 09:06:22 (3 months ago)

Author:

pmurias

Message:

[pugs] removed the useless use of constant warning

Files:

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

src/Pugs/Compile.hs

@@ -209 +209 @@
     compile (Ann _ rest) = compile rest
     compile Noop = return PNoop
+    {-
     compile (Val val) = do
         cxt     <- asks envContext
@@ -218 +219 @@
                     compile Noop
             else compile val
+    -}
+    compile (Val val) = compile val
     compile (Syn "loop" [exp]) =
         compile (Syn "loop" $ [emptyExp, Val (VBool True), emptyExp, exp])