Mercurial > urweb

diff src/flat_print.sml @ 102:5f04adf47f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Writing HTML
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 14:02:54 -0400
parents 717b6f8d8505
children d101cb1efe55
line wrap: on
line diff
--- a/src/flat_print.sml	Thu Jul 10 11:13:49 2008 -0400
+++ b/src/flat_print.sml	Thu Jul 10 14:02:54 2008 -0400
@@ -136,6 +136,16 @@
                  string "end"]
         end
 
+      | EStrcat (e1, e2) => box [p_exp' true env e1,
+                                 space,
+                                 string "^",
+                                 space,
+                                 p_exp' true env e2]
+
+      | EWrite e => box [string "write(",
+                         p_exp env e,
+                         string ")"]
+
 and p_exp env = p_exp' false env
 
 fun p_decl env ((d, _) : decl) =