diff options
Diffstat (limited to 'src/elaborate.sml')
-rw-r--r-- | src/elaborate.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 26ec21ec..41e9e9ab 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -4461,6 +4461,8 @@ fun resolveClass env = E.resolveClass (hnormCon env) (consEq env dummy) env fun elabFile basis basis_tm topStr topSgn top_tm env file = let + val () = ModDb.snapshot () + val () = mayDelay := true val () = delayedUnifs := [] val () = delayedExhaustives := [] @@ -4788,6 +4790,11 @@ fun elabFile basis basis_tm topStr topSgn top_tm env file = end else (); + + if ErrorMsg.anyErrors () then + ModDb.revert () + else + (); (L'.DFfiStr ("Basis", basis_n, sgn), ErrorMsg.dummySpan) :: ds |