diff options
| author | Camil Staps | 2015-05-18 14:51:03 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-05-18 14:51:03 +0200 |
| commit | 7472abae787a5b3e7c49b455c2910e605f7aa022 (patch) | |
| tree | 27abc8095690100fb6cc90d90a4ace25de522819 /fp2 | |
| parent | RefactorX camil (diff) | |
bugfix free
Diffstat (limited to 'fp2')
| -rw-r--r-- | fp2/week45/camil/RefactorX.icl | 2 |
1 files changed, 1 insertions, 1 deletions
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
|