comparison src/mono.sml @ 164:6847741e1f5f

Datatypes through monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 13:32:07 -0400
parents f0d3402184d1
children 25b169416ea8
comparison
equal deleted inserted replaced
163:80192edca30d 164:6847741e1f5f
58 58
59 59
60 withtype exp = exp' located 60 withtype exp = exp' located
61 61
62 datatype decl' = 62 datatype decl' =
63 DVal of string * int * typ * exp * string 63 DDatatype of string * int * (string * int * typ option) list
64 | DVal of string * int * typ * exp * string
64 | DValRec of (string * int * typ * exp * string) list 65 | DValRec of (string * int * typ * exp * string) list
65 | DExport of Core.export_kind * string * int * typ list 66 | DExport of Core.export_kind * string * int * typ list
66 67
67 withtype decl = decl' located 68 withtype decl = decl' located
68 69