summaryrefslogtreecommitdiff
path: root/src/elab.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 11:17:29 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 11:17:29 -0400
commit3f497272d327fea2638006c751d812dbbc449c78 (patch)
tree60d3ec0e0ab4ba36e8ad9396aad35e05d4725153 /src/elab.sml
parent89f97891a33b5c0a8971d3508059a139a8815091 (diff)
Elaborating 'let'
Diffstat (limited to 'src/elab.sml')
-rw-r--r--src/elab.sml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/elab.sml b/src/elab.sml
index 4202d367..b5350c2a 100644
--- a/src/elab.sml
+++ b/src/elab.sml
@@ -117,7 +117,14 @@ datatype exp' =
| EError
| EUnif of exp option ref
+ | ELet of edecl list * exp
+
+and edecl' =
+ EDVal of string * con * exp
+ | EDValRec of (string * con * exp) list
+
withtype exp = exp' located
+ and edecl = edecl' located
datatype sgn_item' =
SgiConAbs of string * int * kind