From 9a4f3cec9c8ee97a00dd79fc73fdd65125c09b58 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 30 Aug 2011 12:13:50 +0000
Subject: [PATCH] PatternMatch.hs: commented out suspicious unused function
 varsOfPatt

---
 src/compiler/GF/Grammar/PatternMatch.hs | 4 ++--
 1 file 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