diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Grammar/PatternMatch.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Grammar/PatternMatch.hs b/src/compiler/GF/Grammar/PatternMatch.hs index 53ffc3394..37cebcff7 100644 --- a/src/compiler/GF/Grammar/PatternMatch.hs +++ b/src/compiler/GF/Grammar/PatternMatch.hs @@ -146,7 +146,7 @@ isInConstantForm trm = case trm of Empty -> True EInt _ -> True _ -> False ---- isInArgVarForm trm - +{- -- unused and suspicuous, see contP in GF.Compile.Compute.Concrete instead varsOfPatt :: Patt -> [Ident] varsOfPatt p = case p of PV x -> [x] @@ -155,7 +155,7 @@ varsOfPatt p = case p of PR r -> concat $ map (varsOfPatt . snd) r PT _ q -> varsOfPatt q _ -> [] - +-} -- | to search matching parameter combinations in tables isMatchingForms :: [Patt] -> [Term] -> Bool isMatchingForms ps ts = all match (zip ps ts') where |