1 files changed, 1 insertions, 1 deletions

diff --git a/AufgabeFFP6.hs b/AufgabeFFP6.hs
index a8f78a3..dba6043 100644
--- a/AufgabeFFP6.hs
+++ b/AufgabeFFP6.hs
@@ -129,7 +129,7 @@ transform ::  (W -> (F, W, [G])) -> W -> ((F, W, [G]), [W])
 transform fun w = ((f, w, g'), map (eval f) g')
   where
     (f, w, g) = fun w
-    g' = filter (\g'' -> check_divByZero f g'') g
+    g' = filter (check_divByZero f) g
 
 -- take those, where the entry in the result list corresponds to
 filt :: (W -> ((F, W, [G]), [W]) ) -> W -> [G]