diff options
| author | vgross | 2010-02-12 17:50:36 +0000 |
|---|---|---|
| committer | vgross | 2010-02-12 17:50:36 +0000 |
| commit | 6ba69eb95dfbf199d4929d6ee3054e26102b1f95 (patch) | |
| tree | 459c5c8b131492ccb9aa09803ad8a354e89e2194 /library/lib.ml | |
| parent | 3cb4d2679da810e3ab42bfdb90604285182af0ed (diff) | |
Simplify backtracking
As we can now jump right onto a closed segment, there is no need for
complicated pattern matching.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12758 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/lib.ml b/library/lib.ml index 65dcc83394..9c11cd991e 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -630,7 +630,7 @@ let reset_to_state sp = let (_,eq,before) = split_lib sp in (* if eq a frozen state, we'll reset to it *) match eq with - | [_,FrozenState f] -> lib_stk := eq@before; unfreeze_summaries f + | [_,FrozenState f] -> lib_stk := eq@before; recalc_path_prefix (); unfreeze_summaries f | _ -> error "Not a frozen state" |