Mercurial > urweb

diff src/elab_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 e2780d2f4afc
children b2311dfb3158
line wrap: on
line diff
--- a/src/elab_print.sml	Thu May 28 11:45:45 2009 -0400
+++ b/src/elab_print.sml	Thu May 28 12:07:05 2009 -0400
@@ -423,7 +423,7 @@
       | EUnif (ref (SOME e)) => p_exp env e
       | EUnif _ => string "_"
 
-      | ELet (ds, e) =>
+      | ELet (ds, e, _) =>
         let
             val (dsp, env) = ListUtil.foldlMap
                              (fn (d, env) =>
@@ -456,9 +456,17 @@
 
 and p_edecl env (dAll as (d, _)) =
     case d of
-        EDVal vi => box [string "val",
-                         space,
-                         p_evali env vi]
+        EDVal (p, t, e) => box [string "val",
+                                space,
+                                p_pat env p,
+                                space,
+                                string ":",
+                                space,
+                                p_con env t,
+                                space,
+                                string "=",
+                                space,
+                                p_exp env e]
       | EDValRec vis =>
         let
             val env = E.edeclBinds env dAll