diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-03 11:03:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 11:03:35 -0400 |
| commit | cf83c3318fb43ebfce468477c9fb6ad64c96e440 (patch) | |
| tree | b6f4bdade340a0f1ed24e1ae5b34072e6814ef8e /src/cjrize.sml | |
| parent | c0b7963e91681045bb4c82a2356776fae54f54c5 (diff) | |
Cjrize EStrcat
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 1e55cfc5..ac3563f0 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -155,7 +155,13 @@ fun cifyExp ((e, loc), sm) = | L.ECase _ => raise Fail "Cjrize ECase" - | L.EStrcat _ => raise Fail "Cjrize EStrcat" + | L.EStrcat (e1, e2) => + let + val (e1, sm) = cifyExp (e1, sm) + val (e2, sm) = cifyExp (e2, sm) + in + ((L'.EFfiApp ("Basis", "strcat", [e1, e2]), loc), sm) + end | L.EWrite e => let |