diff options
Diffstat (limited to 'src/cloconv.sml')
-rw-r--r-- | src/cloconv.sml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/cloconv.sml b/src/cloconv.sml index 89d64fdf..b5ea56ca 100644 --- a/src/cloconv.sml +++ b/src/cloconv.sml @@ -204,6 +204,14 @@ fun ccExp env ((e, loc), D) = ((L'.EWrite e, loc), D) end + | L.ESeq (e1, e2) => + let + val (e1, D) = ccExp env (e1, D) + val (e2, D) = ccExp env (e2, D) + in + ((L'.ESeq (e1, e2), loc), D) + end + fun ccDecl ((d, loc), D) = case d of L.DVal (x, n, t, e) => |