diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-08-25 13:57:56 -0400 |
| commit | 5afe50894b7214b796d734d9caf20ee574157b42 (patch) | |
| tree | eccb7d719d3ca507893680773971963313bd56c2 /src/monoize.sml | |
| parent | b57458e2117ab29e1f0754adaa80c081ea8b3fbd (diff) | |
grid1 compiles but gets stuck in JS
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index a5772976..12112648 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3162,10 +3162,6 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val (ek, fm) = monoExp (env, st, fm) ek - val unRpced = foldl (fn (e1, e2) => (L'.EApp (e2, e1), loc)) (L'.ENamed n, loc) es - val unRpced = (L'.EApp (unRpced, (L'.ERecord [], loc)), loc) - val unRpced = (L'.EApp (ek, unRpced), loc) - val unRpced = (L'.EApp (unRpced, (L'.ERecord [], loc)), loc) val unit = (L'.TRecord [], loc) val ekf = (L'.EAbs ("f", @@ -3186,7 +3182,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = else L'.ReadOnly - val e = (L'.EServerCall (call, ek, t, eff, unRpced), loc) + val e = (L'.EServerCall (call, ek, t, eff), loc) val e = liftExpInExp 0 e val e = (L'.EAbs ("_", unit, unit, e), loc) in |