X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Skelsyntax.hs;h=5f49a5b5a4d392571d9009e04c94d63961e34ff8;hp=c1af30729a27da27cf5d3a1f820bc0ffaf8ebbf1;hb=6103c0359b95557566aa9154efa5bcd4d9c996f6;hpb=e9be0603d9dbd1caa6a0032cad0e39815cb8f38d

diff --git a/Skelsyntax.hs b/Skelsyntax.hs
index c1af307..5f49a5b 100644
--- a/Skelsyntax.hs
+++ b/Skelsyntax.hs
@@ -33,9 +33,8 @@ transStm x = case x of
 
 transExp :: Exp -> Result
 transExp x = case x of
-  BExp exp0 bop exp  -> failure x
-  EVar id  -> failure x
   EAss id exp  -> failure x
+  EVar id  -> failure x
   EInt n  -> failure x
   ENeg exp  -> failure x
   EBool bool  -> failure x
@@ -43,7 +42,7 @@ transExp x = case x of
   EReadB  -> failure x
   ExpT type' exp  -> failure x
   EDefault  -> failure x
-  OpExp exp0 op exp  -> failure x
+  BiOpExp exp0 op exp  -> failure x
   EPost id op  -> failure x
 
 
@@ -52,18 +51,14 @@ transStms x = case x of
   Program stms  -> failure x
 
 
-transBOp :: BOp -> Result
-transBOp x = case x of
+transOp :: Op -> Result
+transOp x = case x of
   Lt  -> failure x
   ELt  -> failure x
   Gt  -> failure x
   EGt  -> failure x
   Eq  -> failure x
   NEq  -> failure x
-
-
-transOp :: Op -> Result
-transOp x = case x of
   Plus  -> failure x
   Minus  -> failure x
   Times  -> failure x