added some new pattern forms, incl. pattern macros, to testgf3

This commit is contained in:
aarne
2008-02-01 22:01:10 +00:00
parent 3addf256bc
commit 4889558137
10 changed files with 66 additions and 7 deletions
+4
View File
@@ -287,6 +287,10 @@ composOp co trm = case trm of
tts' <- mapM (pairM co) tts
return $ Overload tts'
EPattType ty ->
do ty' <- co ty
return (EPattType ty')
_ -> return trm -- covers K, Vr, Cn, Sort