fix the handling of wildcards

This commit is contained in:
krasimir
2009-05-22 21:47:32 +00:00
parent c520039f1c
commit a7900bfbc8
6 changed files with 9 additions and 7 deletions

View File

@@ -300,8 +300,8 @@ computeTermOpt rec gr = comput True where
_ -> case t' of
FV ccs -> mapM (\c -> comp g (S c v')) ccs >>= returnC . variants
T _ [(PV IW,c)] -> comp g c --- an optimization
T _ [(PT _ (PV IW),c)] -> comp g c
T _ [(PW,c)] -> comp g c --- an optimization
T _ [(PT _ PW,c)] -> comp g c
T _ [(PV z,c)] -> comp (ext z v' g) c --- another optimization
T _ [(PT _ (PV z),c)] -> comp (ext z v' g) c