small update fix

[fp1415.git] / fp2 / week45 / mart / RefactorX.icl

diff --git a/fp2/week45/mart/RefactorX.icl b/fp2/week45/mart/RefactorX.icl
index 3898c14..1334aac 100644 (file)
--- a/fp2/week45/mart/RefactorX.icl
+++ b/fp2/week45/mart/RefactorX.icl
@@ -57,9 +57,8 @@ apply o (Result e1) (Result e2) = Result (apply` o e1 e2)
                apply` MUL = *\r
                apply` DIV = /\r
 \r
-\r
 eval:: Expr -> Val\r
-eval e = eval` (remove_unused_lets e) []\r
+eval e = eval` e []\r
        where\r
                eval`:: Expr [(Name, Val)] -> Val\r
                eval` (NR n) _ = Result n\r