Mercurial > urweb
diff src/mono_util.sml @ 111:2d6116de9cca
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