Mercurial > urweb
comparison src/elab.sml @ 123:e3041657d653
Parsing and elaborating (non-mutual) 'val rec'
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 17 Jul 2008 10:09:34 -0400 |
parents | 813e5a52063d |
children | 7420fa18d657 |
comparison
equal
deleted
inserted
replaced
122:f7c6ceb87bbd | 123:e3041657d653 |
---|---|
109 and sgn = sgn' located | 109 and sgn = sgn' located |
110 | 110 |
111 datatype decl' = | 111 datatype decl' = |
112 DCon of string * int * kind * con | 112 DCon of string * int * kind * con |
113 | DVal of string * int * con * exp | 113 | DVal of string * int * con * exp |
114 | DValRec of (string * int * con * exp) list | |
114 | DSgn of string * int * sgn | 115 | DSgn of string * int * sgn |
115 | DStr of string * int * sgn * str | 116 | DStr of string * int * sgn * str |
116 | DFfiStr of string * int * sgn | 117 | DFfiStr of string * int * sgn |
117 | DConstraint of con * con | 118 | DConstraint of con * con |
118 | DExport of int * sgn * str | 119 | DExport of int * sgn * str |