summaryrefslogtreecommitdiff
path: root/src/termination.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 12:07:05 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 12:07:05 -0400
commita735f6ea0ef8ec5895dfe7f895f89ee8c126de14 (patch)
tree702dbe43701e15a37f7811983aad78e069812704 /src/termination.sml
parent43cd4231dea11d2cbb0151f144e4a98c618df396 (diff)
Destructing local let, to the point where demo compiles
Diffstat (limited to 'src/termination.sml')
-rw-r--r--src/termination.sml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/termination.sml b/src/termination.sml
index 5dd95f46..f0b21d99 100644
--- a/src/termination.sml
+++ b/src/termination.sml
@@ -306,7 +306,7 @@ fun declOk' env (d, loc) =
| EUnif (ref (SOME e)) => exp parent (penv, calls) e
| EUnif (ref NONE) => (Rabble, calls)
- | ELet (eds, e) =>
+ | ELet (eds, e, _) =>
let
fun extPenv ((ed, _), penv) =
case ed of