regular expression patterns

2006-01-07 14:39:40 +00:00
parent 4e42d73ee5
commit d133e0353c
16 changed files with 170 additions and 135 deletions
--- a/src/GF/Compile/Rename.hs
+++ b/src/GF/Compile/Rename.hs
@@ -255,6 +255,10 @@ renamePattern env patt = case patt of
    (p',vs) <- renp p
    return (PRep p', vs)

+  PNeg p -> do
+    (p',vs) <- renp p
+    return (PNeg p', vs)
+
  PAs x p -> do
    (p',vs) <- renp p
    return (PAs x p', x:vs)