Changeset 4114

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

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

not <foo.

Location:

src/Pugs

Files:

• Parser.hs (modified) (1 diff)
• Prim/Match.hs (modified) (1 diff)

src/Pugs/Parser.hs

@@ -244 +244 @@
     ch      <- char '{'
     expr    <- rxLiteralAny adverbs $ balancedDelim ch
-    let exp = Syn ":=" [Var ('<':name), Syn "rx" [expr, adverbs]]
-    unsafeEvalExp (Sym SGlobal ('<':name) exp)
+    let exp = Syn ":=" [Var ('<':'*':name), Syn "rx" [expr, adverbs]]
+    unsafeEvalExp (Sym SGlobal ('<':'*':name) exp)
     return emptyExp
 

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