From: Camil Staps <info@camilstaps.nl>
Date: Mon, 18 May 2015 12:51:03 +0000 (+0200)
Subject: bugfix free
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=7472abae787a5b3e7c49b455c2910e605f7aa022;p=fp1415.git

bugfix free
---

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