First INSERT works

1 files changed, 7 insertions, 0 deletions

diff --git a/src/prepare.sml b/src/prepare.sml
index a1dd0e79..bb1af6cc 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -150,6 +150,13 @@ fun prepExp (e as (_, loc), sns) =
                        initial = initial, prepared = SOME (#2 sns)}, loc),
               ((String.concat (rev ss), n) :: #1 sns, #2 sns + 1)))
 
+      | EDml {dml, ...} =>
+        (case prepString (dml, [], 0) of
+             NONE => (e, sns)
+           | SOME (ss, n) =>
+             ((EDml {dml = dml, prepared = SOME (#2 sns)}, loc),
+              ((String.concat (rev ss), n) :: #1 sns, #2 sns + 1)))
+
 fun prepDecl (d as (_, loc), sns) =
     case #1 d of
         DStruct _ => (d, sns)