diff options
| -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
|