Mercurial > urweb

diff src/source_print.sml @ 825:7f871c03e3a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Destructing local let, to the point where demo compiles
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 12:07:05 -0400
parents d4e811beb8eb
children b2311dfb3158
line wrap: on
line diff
--- a/src/source_print.sml	Thu May 28 11:45:45 2009 -0400
+++ b/src/source_print.sml	Thu May 28 12:07:05 2009 -0400
@@ -338,9 +338,13 @@
 
 and p_edecl (d, _) =
   case d of
-      EDVal vi => box [string "val",
-                       space,
-                       p_vali vi]
+      EDVal (p, e) => box [string "val",
+                           space,
+                           p_pat p,
+                           space,
+                           string "=",
+                           space,
+                           p_exp e]
     | EDValRec vis => box [string "val",
                            space,
                            string "rec",