diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-23 17:46:40 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-23 17:46:40 -0500 |
| commit | 38d3bc508b3b882e81599bdb0e1d4a2572c23dd0 (patch) | |
| tree | 31bbf2f979aa12d31eb3977bb6c0cdfe2c57bae9 /src/mono_util.sml | |
| parent | 867a11af44827af8974250e6dbb5e96b6268b44f (diff) | |
[De]serialization of times in JavaScript; proper integer division in JavaScript; Basis.crypt; Top.mkRead'; more aggressive Mono-level inlining, for values of function-y types
Diffstat (limited to 'src/mono_util.sml')
| -rw-r--r-- | src/mono_util.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono_util.sml b/src/mono_util.sml index 56472155..bb09f84d 100644 --- a/src/mono_util.sml +++ b/src/mono_util.sml @@ -200,12 +200,12 @@ fun mapfoldB {typ = fc, exp = fe, bind} = S.map2 (mfe ctx e, fn e' => (EUnop (s, e'), loc)) - | EBinop (s, e1, e2) => + | EBinop (bi, s, e1, e2) => S.bind2 (mfe ctx e1, fn e1' => S.map2 (mfe ctx e2, fn e2' => - (EBinop (s, e1', e2'), loc))) + (EBinop (bi, s, e1', e2'), loc))) | ERecord xes => S.map2 (ListUtil.mapfold (fn (x, e, t) => |