[commented dead code
martin.hofmann@uni-bamberg.de**20100104103753] hunk ./src/Igor2/Data/Rules.hs 151
-    
-callLevel :: Rule -> [Name] -> Int
-callLevel = (flip countCalls) . rhs
+
+-- DEAD CODE            
+--callLevel :: Rule -> [Name] -> Int
+--callLevel = (flip countCalls) . rhs
hunk ./src/Igor2/Data/Rules.hs 243
-                      
+
+                           
hunk ./src/Igor2/Data/Rules.hs 257
-
-
-countCalls :: [Name] -> TExp -> Int
-countCalls ns e = cc (0::Int) ns e
-    where
-    cc :: Int -> [Name] -> TExp -> Int
-    cc c ns (TVarE n _)       = if isCall n ns then c + 1 else c
-    cc c ns (TLitE _ _)       = c
-    cc c ns (TWildE _ _)      = c
-    cc c ns (TConE n _)       = c
-    cc c ns (TAppE a1 a2 _)   = (c+) $ on (+) (cc 0 ns) a1 a2
-    cc c ns (TInfixE l o r _) = (c+).sum $ map (cc 0 ns) [l,o,r]
-    cc c ns (TTupE l _)       = (c+).sum $ map (cc 0 ns) l
-    cc c ns (TListE l _)      = (c+).sum $ map (cc 0 ns) l
---    cc c ns (TCondE i t e _)  = (c+).sum $ map (cc 0 ns) [i,t,e]
-
-isCall :: Name -> [Name] -> Bool
-isCall n ns 
-    | n `elem` ns                 = True
-    | "fun" `isPrefixOf` (show n) = True
-    | otherwise                   = False
+ 
+-- DEAD CODE  
+--countCalls :: [Name] -> TExp -> Int
+--countCalls ns e = cc (0::Int) ns e
+--    where
+--    cc :: Int -> [Name] -> TExp -> Int
+--    cc c ns (TVarE n _)       = if isCall n ns then c + 1 else c
+--    cc c ns (TLitE _ _)       = c
+--    cc c ns (TWildE _ _)      = c
+--    cc c ns (TConE n _)       = c
+--    cc c ns (TAppE a1 a2 _)   = (c+) $ on (+) (cc 0 ns) a1 a2
+--    cc c ns (TInfixE l o r _) = (c+).sum $ map (cc 0 ns) [l,o,r]
+--    cc c ns (TTupE l _)       = (c+).sum $ map (cc 0 ns) l
+--    cc c ns (TListE l _)      = (c+).sum $ map (cc 0 ns) l
+----    cc c ns (TCondE i t e _)  = (c+).sum $ map (cc 0 ns) [i,t,e]
+--
+-- DEAD CODE  
+--isCall :: Name -> [Name] -> Bool
+--isCall n ns 
+--    | n `elem` ns                 = True
+--    | "fun" `isPrefixOf` (show n) = True
+--    | otherwise                   = False