Mercurial > urweb
comparison src/flat.sml @ 102:5f04adf47f48
Writing HTML
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 10 Jul 2008 14:02:54 -0400 |
parents | 717b6f8d8505 |
children | d101cb1efe55 |
comparison
equal
deleted
inserted
replaced
101:717b6f8d8505 | 102:5f04adf47f48 |
---|---|
51 | ERecord of (string * exp * typ) list | 51 | ERecord of (string * exp * typ) list |
52 | EField of exp * string | 52 | EField of exp * string |
53 | 53 |
54 | ELet of (string * typ * exp) list * exp | 54 | ELet of (string * typ * exp) list * exp |
55 | 55 |
56 | EStrcat of exp * exp | |
57 | |
58 | EWrite of exp | |
59 | |
56 withtype exp = exp' located | 60 withtype exp = exp' located |
57 | 61 |
58 datatype decl' = | 62 datatype decl' = |
59 DVal of string * int * typ * exp | 63 DVal of string * int * typ * exp |
60 | DFun of int * string * typ * typ * exp | 64 | DFun of int * string * typ * typ * exp |