Mercurial > urweb

diff src/cjrize.sml @ 180:c7a5c8e0a0e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cjrize EStrcat
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 11:03:35 -0400
parents eb3f9913bf31
children 31dfab1d4050
line wrap: on
line diff
--- a/src/cjrize.sml	Sun Aug 03 10:48:36 2008 -0400
+++ b/src/cjrize.sml	Sun Aug 03 11:03:35 2008 -0400
@@ -155,7 +155,13 @@
 
       | 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