Mercurial > urweb

diff src/source.sml @ 446:86c063fedc4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parsing 'let'
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 10:47:10 -0400
parents dfc8c991abd0
children f542bc3133dc
line wrap: on
line diff
--- a/src/source.sml	Fri Oct 31 09:30:22 2008 -0400
+++ b/src/source.sml	Sat Nov 01 10:47:10 2008 -0400
@@ -131,7 +131,14 @@
 
        | ECase of exp * (pat * exp) list
 
+       | ELet of edecl list * exp
+
+and edecl' =
+    EDVal of string * con option * exp
+  | EDValRec of (string * con option * exp) list
+
 withtype exp = exp' located
+and edecl = edecl' located
 
 datatype decl' =
          DCon of string * kind option * con