parsing cleaner

[minfp.git] / check.icl

diff --git a/check.icl b/check.icl
index 93f579d..e332b59 100644 (file)
--- a/check.icl
+++ b/check.icl
@@ -16,8 +16,6 @@ check fs
                ([], _) = Left ["No start function defined"]
                ([Function _ [] e], fs) = Right (foldr (\(Function i a e)->Let i a e) e fs)
                ([Function _ _ _], _) = Left ["Start cannot have arguments"]
-where
-       funs = [i\\(Function i _ _)<-fs]
 
 //import qualified Data.Map as DM
 //from Data.Map import instance Functor (Map k)