moved modified Testsyntax to Typechecker to keep the original one

[proglang.git] / Skelsyntax.hs

diff --git a/Skelsyntax.hs b/Skelsyntax.hs
index c1af30729a27da27cf5d3a1f820bc0ffaf8ebbf1..8a3605383704b6bf4c3a36e6e4936be53876cfec 100644 (file)
--- a/Skelsyntax.hs
+++ b/Skelsyntax.hs
@@ -33,9 +33,9 @@ transStm x = case x of
 
 transExp :: Exp -> Result
 transExp x = case x of
+  EAss id exp  -> failure x
   BExp exp0 bop exp  -> failure x
   EVar id  -> failure x
-  EAss id exp  -> failure x
   EInt n  -> failure x
   ENeg exp  -> failure x
   EBool bool  -> failure x