diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-10-10 20:33:10 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-10-10 20:33:10 -0400 |
| commit | 4e608544ebe87dd991d53ded5267f14f5df93b8b (patch) | |
| tree | 4de957d9837f39c79ebc56b5ac2935e31a28d0b5 /src/elaborate.sml | |
| parent | 42d55420b84994ee61c0a4645d21d275dbbea2cd (diff) | |
:::_ notation; switch to TooDeep error message
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 7bf687e2..dcae4650 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1079,13 +1079,13 @@ err COccursCheckFailed else (r := SOME (squish nl c2All) - handle CantSquish => err CIncompatible) + handle CantSquish => err (fn _ => TooDeep)) | (_, L'.CUnif (nl, _, _, _, r)) => if occursCon r c1All then err COccursCheckFailed else (r := SOME (squish nl c1All) - handle CantSquish => err CIncompatible) + handle CantSquish => err (fn _ => TooDeep)) | (L'.CUnit, L'.CUnit) => () |