diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-10 15:49:14 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-10 15:49:14 -0400 |
| commit | 0e95aa2c802d0a4fa54ebf985133eb2584a1d9ba (patch) | |
| tree | f8d063fc040cfc82b2b55093ef6053799b1c0a97 /src/cjrize.sml | |
| parent | 0c1f369955bcdfe949bb6793812ef8ead2963228 (diff) | |
More with attributes and efficient serialization
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 3ae68a0a..da436720 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -167,6 +167,14 @@ fun cifyExp ((e, loc), sm) = ((L'.EWrite e, loc), sm) end + | L.ESeq (e1, e2) => + let + val (e1, sm) = cifyExp (e1, sm) + val (e2, sm) = cifyExp (e2, sm) + in + ((L'.ESeq (e1, e2), loc), sm) + end + fun cifyDecl ((d, loc), sm) = case d of L.DVal (x, n, t, e) => |