implemented pattern macros

2021-09-29 17:38:53 +02:00
parent 6efb878c43
commit 0229329d7c
14 changed files with 71 additions and 47 deletions
@@ -237,9 +237,9 @@ renameTerm env vars = ren vars where
                            , checkError ("unknown qualified constant" <+> trm)
                            ]

-    EPatt p -> do
+    EPatt minp maxp p -> do
      (p',_) <- renpatt p
-      return $ EPatt p'
+      return $ EPatt minp maxp p'

    _ -> composOp (ren vs) trm