diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 11:55:11 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 11:55:11 +0000 |
| commit | 76cb7a13d714639a8f4d448416dddda86e86f9fb (patch) | |
| tree | 80ed169b14f04c3c1ddf6a7ff701f4803d74a7a5 | |
| parent | 999abb3fb39ba343c1a520661b49e0ebca5d2d40 (diff) | |
Use a Summary.ref for the tactic in tactic options for proper backtracking
and handling of locality (fixes FingerTree contrib).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16560 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactic_option.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactic_option.ml b/tactics/tactic_option.ml index 7a13890b5..fdd5a9aae 100644 --- a/tactics/tactic_option.ml +++ b/tactics/tactic_option.ml @@ -15,7 +15,7 @@ let declare_tactic_option ?(default=Tacexpr.TacId []) name = Summary.ref default ~name:(name^"-default-tacexpr") in let default_tactic : Proof_type.tactic ref = - ref (Tacinterp.eval_tactic !default_tactic_expr) + Summary.ref (Tacinterp.eval_tactic !default_tactic_expr) ~name:(name^"-default-tactic") in let set_default_tactic local t = locality := local; |