Changeset 4914 for src/Pugs/Compile

Timestamp:

06/22/05 20:57:31 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* 01-sanity/07-test.t is now working!

Files:

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

src/Pugs/Compile/PIR.hs

@@ -114 +114 @@
         rhsC    <- trans rhs
         return $ lhsC `KEYED` rhsC
-    trans (PApp cxt fun args) = do
+    trans (PApp _ fun args) = do
         funC    <- trans fun {- case fun of
             PExp (PVar name) -> return $ lit name