Changeset 8689 for src/Pugs/Compile.hs

Timestamp:

01/15/06 20:24:08 (3 years ago)

Author:

audreyt

Message:

* only explicitly rebind pads if we are importing from somewhere else.

Files:

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

src/Pugs/Compile.hs

@@ -152 +152 @@
         padC    <- compile $ padToList pad
         let symC = (map fst $ padToList pad) `zip` padC
-            exps = [ Syn ":=" [Var name, Var from] | (name, PRawName from) <- symC ]
+            exps = [ Syn ":=" [Var name, Var from] | (name, PRawName from) <- symC, name /= from ]
         expC    <- compile $ mergeStmts (foldl1 mergeStmts (exps ++ [exp])) rest
         return $ PPad scope symC expC