summaryrefslogtreecommitdiff
path: root/src/cjrize.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-03 11:03:35 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-03 11:03:35 -0400
commitcf83c3318fb43ebfce468477c9fb6ad64c96e440 (patch)
treeb6f4bdade340a0f1ed24e1ae5b34072e6814ef8e /src/cjrize.sml
parentc0b7963e91681045bb4c82a2356776fae54f54c5 (diff)
Cjrize EStrcat
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r--src/cjrize.sml8
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