Mercurial > urweb

diff src/mono_print.sml @ 179:3bbed533fbd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cases through monoize
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 10:48:36 -0400
parents eb3f9913bf31
children d11754ffe252
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Aug 03 09:26:49 2008 -0400
+++ b/src/mono_print.sml	Sun Aug 03 10:48:36 2008 -0400
@@ -169,7 +169,7 @@
                                                                              space,
                                                                              string "=>",
                                                                              space,
-                                                                             p_exp env e]) pes])
+                                                                             p_exp (E.patBinds env p) e]) pes])
 
       | EStrcat (e1, e2) => box [p_exp' true env e1,
                                  space,