comparison src/flat.sml @ 101:717b6f8d8505

First executable generated
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 11:13:49 -0400
parents 198172560b73
children 5f04adf47f48
comparison
equal deleted inserted replaced
100:f0f59e918cac 101:717b6f8d8505
56 withtype exp = exp' located 56 withtype exp = exp' located
57 57
58 datatype decl' = 58 datatype decl' =
59 DVal of string * int * typ * exp 59 DVal of string * int * typ * exp
60 | DFun of int * string * typ * typ * exp 60 | DFun of int * string * typ * typ * exp
61 | DPage of (string * typ) list * exp
61 62
62 withtype decl = decl' located 63 withtype decl = decl' located
63 64
64 type file = decl list 65 type file = decl list
65 66