diff options
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 |