diff options
| author | Pierre-Marie Pédrot | 2017-08-25 15:01:02 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-25 15:01:29 +0200 |
| commit | c41f5d406f627e94363b4549ef268ffa33e7b681 (patch) | |
| tree | 17891b560a2c03dc8cd4ff1bc3599559fa338648 | |
| parent | 3ef5f35b0d7ec6f56f68e4319d6ec85bebaa19b8 (diff) | |
Respect the default goal selector in toplevel invocations.
| -rw-r--r-- | src/tac2entries.ml | 3 | ||||
| -rw-r--r-- | tests/example2.v | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/tac2entries.ml b/src/tac2entries.ml index d2b69aaf7d..73086c406e 100644 --- a/src/tac2entries.ml +++ b/src/tac2entries.ml @@ -700,7 +700,8 @@ let print_ltac ref = let solve default tac = let status = Proof_global.with_current_proof begin fun etac p -> let with_end_tac = if default then Some etac else None in - let (p, status) = Pfedit.solve SelectAll None tac ?with_end_tac p in + let g = Proof_bullet.get_default_goal_selector () in + let (p, status) = Pfedit.solve g None tac ?with_end_tac p in (* in case a strict subtree was completed, go back to the top of the prooftree *) let p = Proof.maximal_unfocus Vernacentries.command_focus p in diff --git a/tests/example2.v b/tests/example2.v index 6b26b78022..95485305dc 100644 --- a/tests/example2.v +++ b/tests/example2.v @@ -2,6 +2,8 @@ Require Import Ltac2.Ltac2. Import Ltac2.Notations. +Set Default Goal Selector "all". + Goal exists n, n = 0. Proof. split with (x := 0). |