Changeset 4114 for src/Pugs/Prim/Match.hs

Timestamp:

05/29/05 19:30:00 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

* global named rules should use <*foo in the global pad,

not <foo.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -22 +22 @@
     let pwd = if hasSrc then pwd2 else pwd1
     glob    <- askGlobal
-    let syms = [ (name, tvar) | (('<':name), [(_, tvar)]) <- padToList glob ]
+    let syms = [ (name, tvar) | (('<':'*':name), [(_, tvar)]) <- padToList glob ]
     subrules <- forM syms $ \(name, tvar) -> do
         ref  <- liftSTM $ readTVar tvar