Mercurial > urweb
comparison src/cjr.sml @ 271:42dfb0d61cf0
'database' declaration threaded through compiler
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 02 Sep 2008 10:51:41 -0400 |
parents | fac9fae654e2 |
children | 09c66a30ef32 |
comparison
equal
deleted
inserted
replaced
270:b9b02613c0c2 | 271:42dfb0d61cf0 |
---|---|
85 | DDatatype of datatype_kind * string * int * (string * int * typ option) list | 85 | DDatatype of datatype_kind * string * int * (string * int * typ option) list |
86 | DDatatypeForward of datatype_kind * string * int | 86 | DDatatypeForward of datatype_kind * string * int |
87 | DVal of string * int * typ * exp | 87 | DVal of string * int * typ * exp |
88 | DFun of string * int * (string * typ) list * typ * exp | 88 | DFun of string * int * (string * typ) list * typ * exp |
89 | DFunRec of (string * int * (string * typ) list * typ * exp) list | 89 | DFunRec of (string * int * (string * typ) list * typ * exp) list |
90 | DDatabase of string | |
90 | 91 |
91 withtype decl = decl' located | 92 withtype decl = decl' located |
92 | 93 |
93 type file = decl list * (Core.export_kind * string * int * typ list) list | 94 type file = decl list * (Core.export_kind * string * int * typ list) list |
94 | 95 |