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

Timestamp:

03/11/07 02:55:14 (21 months ago)

Author:

audreyt

Message:

Pugs.Prim.*: Chase retError/Sym changes.

Files:

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

src/Pugs/Prim/Match.hs

@@ -37 +37 @@
     let pwd = if hasSrc then pwd2 else pwd1
     glob    <- askGlobal
-    let syms = [ (cast $ v_name var, tvar)
-               | (var, [(_, tvar)]) <- padToList glob
+    let syms = [ (cast $ v_name var, entry)
+               | (var, entry) <- padToList glob
                , SRegex == v_sigil var
                , isGlobalVar var
                ]
-    subrules <- forM syms $ \(name, tvar) -> do
-        ref         <- liftSTM $ readTVar tvar
+    subrules <- forM syms $ \(name, entry) -> do
+        ref         <- readPadEntry entry
         VRule rule  <- fromVal =<< readRef ref
         text        <- ruleWithAdverbs rule