Mercurial > urweb

diff src/mono_print.sml @ 387:7abb28e9d51f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Binops; equality tested on int; lame 404 substitute
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 09:50:19 -0400
parents e976b187d73a
children bb27c7efcd90
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Oct 19 16:49:09 2008 -0400
+++ b/src/mono_print.sml	Tue Oct 21 09:50:19 2008 -0400
@@ -158,6 +158,15 @@
                                                 space,
                                                 p_exp (E.pushERel env x t NONE) e])
 
+      | EUnop (s, e) => parenIf true (box [string s,
+                                           space,
+                                           p_exp' true env e])
+      | EBinop (s, e1, e2) => parenIf true (box [p_exp' true env e1,
+                                                 space,
+                                                 string s,
+                                                 space,
+                                                 p_exp' true env e2])
+
       | ERecord xes => box [string "{",
                             p_list (fn (x, e, _) =>
                                        box [string x,