Mercurial > urweb
diff src/mono_print.sml @ 94:40d146f467c5
Monoizing cdata
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 03 Jul 2008 17:39:17 -0400 |
parents | 92361a008a10 |
children | f0f59e918cac |
line wrap: on
line diff
--- a/src/mono_print.sml Thu Jul 03 17:14:35 2008 -0400 +++ b/src/mono_print.sml Thu Jul 03 17:39:17 2008 -0400 @@ -111,6 +111,13 @@ string ".", string x] + + | EStrcat (e1, e2) => box [p_exp' true env e1, + space, + string ".", + space, + p_exp' true env e2] + and p_exp env = p_exp' false env fun p_decl env ((d, _) : decl) =