Mercurial > urweb

diff src/mono_util.sml @ 307:52d4c60518d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First INSERT works
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 15:05:52 -0400
parents 59dc042629b9
children e976b187d73a
line wrap: on
line diff
--- a/src/mono_util.sml	Sun Sep 07 14:38:14 2008 -0400
+++ b/src/mono_util.sml	Sun Sep 07 15:05:52 2008 -0400
@@ -285,6 +285,11 @@
                                                                                        body = body',
                                                                                        initial = initial'},
                                                                                loc)))))))
+
+              | EDml e =>
+                S.map2 (mfe ctx e,
+                     fn e' =>
+                        (EDml e', loc))
     in
         mfe
     end