diff options
| author | Pierre-Marie Pédrot | 2016-03-15 23:56:22 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-19 01:36:22 +0100 |
| commit | 5bce635ad876bde78a7ffabc3e781112e5418a65 (patch) | |
| tree | c4c3ba4f0b4a8956d03a3a62e2dc37fcdbe10a81 /proofs | |
| parent | d94a8b2024497e11ff9392a7fa4401ffcc131cc0 (diff) | |
Removing the dependency in VernacSolve in the STM.
Instead of mangling the AST in order to interpret par: we remember the goal
position to focus on it first and evaluate then the underlying vernacular
expression.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index 20d696fd91..0fdcaa5875 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -104,9 +104,7 @@ let solve ?with_end_tac gi info_lvl tac pr = let tac = match gi with | Vernacexpr.SelectNth i -> Proofview.tclFOCUS i i tac | Vernacexpr.SelectId id -> Proofview.tclFOCUSID id tac - | Vernacexpr.SelectAll -> tac - | Vernacexpr.SelectAllParallel -> - Errors.anomaly(str"SelectAllParallel not handled by Stm") + | Vernacexpr.SelectAll | Vernacexpr.SelectAllParallel -> tac in let (p,(status,info)) = Proof.run_tactic (Global.env ()) tac pr in let () = |