Mercurial > urweb

diff src/mono_util.sml @ 111:2d6116de9cca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Closure code generation almost there
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 12:06:47 -0400
parents 813e5a52063d
children 6230bdd122e7
line wrap: on
line diff
--- a/src/mono_util.sml	Sun Jul 13 11:43:57 2008 -0400
+++ b/src/mono_util.sml	Sun Jul 13 12:06:47 2008 -0400
@@ -194,6 +194,11 @@
                          S.map2 (mfe ctx e2,
                               fn e2' =>
                                  (ESeq (e1', e2'), loc)))
+
+              | EClosure (n, es) =>
+                S.map2 (ListUtil.mapfold (mfe ctx) es,
+                     fn es' =>
+                        (EClosure (n, es'), loc))
     in
         mfe
     end