Mercurial > urweb

diff src/elab_print.sml @ 243:2b9dfaffb008

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Transactions and queries, at source level
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Aug 2008 14:48:33 -0400
parents 19e5791923d0
children 71bafe66dbe1
line wrap: on
line diff
--- a/src/elab_print.sml	Thu Aug 28 14:05:47 2008 -0400
+++ b/src/elab_print.sml	Thu Aug 28 14:48:33 2008 -0400
@@ -360,7 +360,7 @@
                                                                              space,
                                                                              string "=>",
                                                                              space,
-                                                                             p_exp env e]) pes])
+                                                                             p_exp (E.patBinds env p) e]) pes])
 
       | EError => string "<ERROR>"
       | EUnif (ref (SOME e)) => p_exp env e