GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

PatternMatch.hs: commented out suspicious unused function varsOfPatt

Browse Source
This commit is contained in:
hallgren
2011-08-30 12:13:50 +00:00
parent 125ae7a3d3
commit a0c785d5d0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Grammar/PatternMatch.hs
View File

@@ -146,7 +146,7 @@ isInConstantForm trm = case trm of
Empty -> True Empty -> True
EInt _ -> True EInt _ -> True
_ -> False ---- isInArgVarForm trm _ -> False ---- isInArgVarForm trm
{- -- unused and suspicuous, see contP in GF.Compile.Compute.Concrete instead
varsOfPatt :: Patt -> [Ident] varsOfPatt :: Patt -> [Ident]
varsOfPatt p = case p of varsOfPatt p = case p of
PV x -> [x] PV x -> [x]
@@ -155,7 +155,7 @@ varsOfPatt p = case p of
PR r -> concat $ map (varsOfPatt . snd) r PR r -> concat $ map (varsOfPatt . snd) r
PT _ q -> varsOfPatt q PT _ q -> varsOfPatt q
_ -> [] _ -> []
-}
-- | to search matching parameter combinations in tables -- | to search matching parameter combinations in tables
isMatchingForms :: [Patt] -> [Term] -> Bool isMatchingForms :: [Patt] -> [Term] -> Bool
isMatchingForms ps ts = all match (zip ps ts') where isMatchingForms ps ts = all match (zip ps ts') where