diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-05-02 08:56:19 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-05-02 08:56:19 -0400 |
| commit | 1fd7e4392db0bace167853850188c464b00a8126 (patch) | |
| tree | 62439e548ac25411e953783beb116b5937e87fae /src/elaborate.sml | |
| parent | b314c01095c5cd4617f71f706e43530a57ffb65b (diff) | |
Don't modify the module cache after elaboration failures
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 |