X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Printsyntax.hs;h=0e549511ce4275a12b895072d1a216b7f8bf45e8;hb=93b042040034d199c925248a2dd1c321773ab6d0;hp=aeb32584f78b7bd2a380d9ed2361ab0e57b33fed;hpb=e9be0603d9dbd1caa6a0032cad0e39815cb8f38d;p=proglang.git

diff --git a/Printsyntax.hs b/Printsyntax.hs
index aeb3258..0e54951 100644
--- a/Printsyntax.hs
+++ b/Printsyntax.hs
@@ -103,9 +103,9 @@ instance Print Stm where
 
 instance Print Exp where
   prt i e = case e of
+   EAss id exp -> prPrec i 0 (concatD [prt 0 id , doc (showString "=") , prt 0 exp])
    BExp exp0 bop exp -> prPrec i 0 (concatD [prt 1 exp0 , prt 0 bop , prt 1 exp])
    EVar id -> prPrec i 3 (concatD [prt 0 id])
-   EAss id exp -> prPrec i 3 (concatD [prt 0 id , doc (showString "=") , prt 0 exp])
    EInt n -> prPrec i 3 (concatD [prt 0 n])
    ENeg exp -> prPrec i 3 (concatD [doc (showString "-") , prt 3 exp])
    EBool bool -> prPrec i 3 (concatD [prt 0 bool])