diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 09:26:49 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 09:26:49 -0400 |
commit | 5e0563d3b00303d5053827e46811c93077455208 (patch) | |
tree | 84de1a0972562b31942273587987b2a27f615d8b /src/cjrize.sml | |
parent | 49c123050b2bc8a24f250fcc0d55e49484bc604c (diff) |
First part of getting cases through monoize
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r-- | src/cjrize.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index a4f35723..1e55cfc5 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -108,6 +108,7 @@ fun cifyExp ((e, loc), sm) = L.EPrim p => ((L'.EPrim p, loc), sm) | L.ERel n => ((L'.ERel n, loc), sm) | L.ENamed n => ((L'.ENamed n, loc), sm) + | L.ECon _ => raise Fail "Cjrize ECon" | L.EFfi mx => ((L'.EFfi mx, loc), sm) | L.EFfiApp (m, x, es) => let @@ -152,6 +153,8 @@ fun cifyExp ((e, loc), sm) = ((L'.EField (e, x), loc), sm) end + | L.ECase _ => raise Fail "Cjrize ECase" + | L.EStrcat _ => raise Fail "Cjrize EStrcat" | L.EWrite e => |