Fix up for MLton build.

[snipe.git] / trans / tree.sml

diff --git a/trans/tree.sml b/trans/tree.sml
index 2111fc19f666758fa1680f3c211e509438935564..d03180ed7129860b3a9086200866c725852d8173 100644 (file)
--- a/trans/tree.sml
+++ b/trans/tree.sml
@@ -23,6 +23,7 @@ sig
     | CALL of Ast.ident * exp list
     | MEMORY of exp
     | ALLOC of exp
+    | STRING of Stringref.stringref
     | COND of exp * exp * exp
     | STMVAR of stm list * exp
     | NULLPTR
@@ -55,6 +56,7 @@ struct
     | CALL of Ast.ident * exp list
     | MEMORY of exp
     | ALLOC of exp
+    | STRING of Stringref.stringref
     | COND of exp * exp * exp
     | STMVAR of stm list * exp
     | NULLPTR