Mercurial > urweb

diff src/mono_print.sml @ 331:41458a694575

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Optimize immediate writes of query results
author Adam Chlipala <adamc@hcoop.net>
date Sat, 13 Sep 2008 10:44:58 -0400
parents 52d4c60518d4
children e976b187d73a
line wrap: on
line diff
--- a/src/mono_print.sml	Sat Sep 13 10:33:30 2008 -0400
+++ b/src/mono_print.sml	Sat Sep 13 10:44:58 2008 -0400
@@ -193,11 +193,11 @@
                               p_typ env t,
                               string ")"]
 
-      | EStrcat (e1, e2) => box [p_exp' true env e1,
-                                 space,
-                                 string "^",
-                                 space,
-                                 p_exp' true env e2]
+      | EStrcat (e1, e2) => parenIf par (box [p_exp' true env e1,
+                                              space,
+                                              string "^",
+                                              space,
+                                              p_exp env e2])
 
       | EWrite e => box [string "write(",
                          p_exp env e,