From 7472abae787a5b3e7c49b455c2910e605f7aa022 Mon Sep 17 00:00:00 2001
From: Camil Staps <info@camilstaps.nl>
Date: Mon, 18 May 2015 14:51:03 +0200
Subject: [PATCH] bugfix free

---
 fp2/week45/camil/RefactorX.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fp2/week45/camil/RefactorX.icl b/fp2/week45/camil/RefactorX.icl
index 3f273e0..9cbb6d7 100644
--- a/fp2/week45/camil/RefactorX.icl
+++ b/fp2/week45/camil/RefactorX.icl
@@ -46,7 +46,7 @@ free								:: Expr -> [Name]
 free (NR _) = []
 free (VAR s) = [s]
 free (LET s _ e2) = [n \\ n <- free e2 | n <> s]
-free (OP e1 _ e2) = (free e1) ++ (free e2)
+free (OP e1 _ e2) = removeDup ((free e1) ++ (free e2))
 
 //	verwijder deelexpressies met ongebruikte let-variabelen:
 remove_unused_lets					:: Expr -> Expr
-- 
2.20.1