diff options
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 => |