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