comparison src/source.sml @ 211:e86411f647c6

Initial type class support
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 Aug 2008 14:32:18 -0400
parents f4033abd6ab1
children 42dfb0d61cf0
comparison
equal deleted inserted replaced
210:f4033abd6ab1 211:e86411f647c6
81 | SgiStr of string * sgn 81 | SgiStr of string * sgn
82 | SgiSgn of string * sgn 82 | SgiSgn of string * sgn
83 | SgiInclude of sgn 83 | SgiInclude of sgn
84 | SgiConstraint of con * con 84 | SgiConstraint of con * con
85 | SgiTable of string * con 85 | SgiTable of string * con
86 | SgiClassAbs of string
87 | SgiClass of string * con
86 88
87 and sgn' = 89 and sgn' =
88 SgnConst of sgn_item list 90 SgnConst of sgn_item list
89 | SgnVar of string 91 | SgnVar of string
90 | SgnFun of string * sgn * sgn 92 | SgnFun of string * sgn * sgn
117 | ERecord of (con * exp) list 119 | ERecord of (con * exp) list
118 | EField of exp * con 120 | EField of exp * con
119 | ECut of exp * con 121 | ECut of exp * con
120 | EFold 122 | EFold
121 123
122 | ESqlInfer 124 | EWild
123 125
124 | ECase of exp * (pat * exp) list 126 | ECase of exp * (pat * exp) list
125 127
126 withtype exp = exp' located 128 withtype exp = exp' located
127 129
137 | DOpen of string * string list 139 | DOpen of string * string list
138 | DConstraint of con * con 140 | DConstraint of con * con
139 | DOpenConstraints of string * string list 141 | DOpenConstraints of string * string list
140 | DExport of str 142 | DExport of str
141 | DTable of string * con 143 | DTable of string * con
144 | DClass of string * con
142 145
143 and str' = 146 and str' =
144 StrConst of decl list 147 StrConst of decl list
145 | StrVar of string 148 | StrVar of string
146 | StrProj of str * string 149 | StrProj of str * string