small update fix

diff --git a/fp2/week45/mart/RefactorX.dcl b/fp2/week45/mart/RefactorX.dcl
index e71f36b..e7fef07 100644 (file)
--- a/fp2/week45/mart/RefactorX.dcl
+++ b/fp2/week45/mart/RefactorX.dcl
@@ -1,5 +1,6 @@
 definition module RefactorX\r
 \r
+from StdClass import class toString\r
 import StdEnv\r
 \r
 :: Expr = NR Int | VAR Name | OP Expr Operator Expr | LET Name Expr Expr\r
@@ -7,7 +8,6 @@ import StdEnv
 :: Operator = PLUS | MIN | MUL | DIV\r
 :: Val = Result Int | Undef\r
 \r
-from StdClass import class toString\r
 \r
 instance toString Expr\r
 free :: Expr -> [Name]\r

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