diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-04 18:39:19 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-01 22:43:56 +0100 |
| commit | 3c8797a7e0d6536e28b8a8e7f4256241fc79dfc8 (patch) | |
| tree | 26a6fe66343f845dce18f3be86cfdadd128ca00f /proofs/proof.ml | |
| parent | 1177da32723fd46a82b66ca7ffe4d13d93480da6 (diff) | |
An API for info traces.
Diffstat (limited to 'proofs/proof.ml')
| -rw-r--r-- | proofs/proof.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index d00618be0..1dc89ca2c 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -318,7 +318,7 @@ let initial_goals p = Proofview.initial_goals p.entry let run_tactic env tac pr = let sp = pr.proofview in - let (_,tacticced_proofview,(status,to_shelve,give_up)) = Proofview.apply env tac sp in + let (_,tacticced_proofview,(status,to_shelve,give_up),_) = Proofview.apply env tac sp in let shelf = let sigma = Proofview.return tacticced_proofview in let pre_shelf = pr.shelf@(List.rev (Evd.future_goals sigma))@to_shelve in |