diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-28 12:07:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-28 12:07:05 -0400 |
| commit | a735f6ea0ef8ec5895dfe7f895f89ee8c126de14 (patch) | |
| tree | 702dbe43701e15a37f7811983aad78e069812704 /src/termination.sml | |
| parent | 43cd4231dea11d2cbb0151f144e4a98c618df396 (diff) | |
Destructing local let, to the point where demo compiles
Diffstat (limited to 'src/termination.sml')
| -rw-r--r-- | src/termination.sml | 2 |
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 |