Mercurial > urweb

diff src/elab.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.sml	Thu May 28 11:45:45 2009 -0400
+++ b/src/elab.sml	Thu May 28 12:07:05 2009 -0400
@@ -120,10 +120,10 @@
        | EError
        | EUnif of exp option ref
 
-       | ELet of edecl list * exp
+       | ELet of edecl list * exp * con
 
 and edecl' =
-    EDVal of string * con * exp
+    EDVal of pat * con * exp
   | EDValRec of (string * con * exp) list
 
 withtype exp = exp' located