removed most shift/reduce conflicts by moving EAss from Exp3 to Exp and thus disallow...

[proglang.git] / Printsyntax.hs

diff --git a/Printsyntax.hs b/Printsyntax.hs
index aeb32584f78b7bd2a380d9ed2361ab0e57b33fed..1d1068749e5bc7d85c4411c7eb9efdf905125d07 100644 (file)
--- a/Printsyntax.hs
+++ b/Printsyntax.hs
@@ -105,7 +105,7 @@ instance Print Exp where
   prt i e = case e of
    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])
+   EAss id exp -> prPrec i 0 (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])