summaryrefslogtreecommitdiff
path: root/src/termination.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 21:19:43 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-01 21:19:43 -0400
commit332e63f89011488c8c1df9a0903f95be20d989a4 (patch)
tree2be405017cad5af57826b17c1715d9579eb06d1b /src/termination.sml
parente7ee2c10c91252731665373f3fe01f43adfeed72 (diff)
Almost have that nested save function compiling
Diffstat (limited to 'src/termination.sml')
-rw-r--r--src/termination.sml10
1 files changed, 9 insertions, 1 deletions
diff --git a/src/termination.sml b/src/termination.sml
index 6ed4d92f..2db5bb11 100644
--- a/src/termination.sml
+++ b/src/termination.sml
@@ -293,7 +293,15 @@ fun declOk' env (d, loc) =
| EUnif (ref (SOME e)) => exp parent (penv, calls) e
| EUnif (ref NONE) => (Rabble, calls)
- | ELet (_, e) => exp parent (penv, calls) e
+ | ELet (eds, e) =>
+ let
+ fun extPenv ((ed, _), penv) =
+ case ed of
+ EDVal _ => Rabble :: penv
+ | EDValRec vis => foldl (fn (_, penv) => Rabble :: penv) penv vis
+ in
+ exp parent (foldl extPenv penv eds, calls) e
+ end
end
fun doVali (i, (_, f, _, e), calls) =