From c233a13620202790fa59fc720b7149a0d88f275a Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 29 Oct 2020 14:11:39 +0100
Subject: Fixing interpretation of rewrite_strat argument in Ltac.

Ltac variables were not yet supported.
---
 plugins/ltac/pptactic.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/ltac/pptactic.ml')

diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml
index 87da304330..edd56ee0f7 100644
--- a/plugins/ltac/pptactic.ml
+++ b/plugins/ltac/pptactic.ml
@@ -1135,8 +1135,8 @@ let pr_goal_selector ~toplevel s =
         pr_dconstr = (fun env sigma -> pr_and_constr_expr (pr_glob_constr_env env));
         pr_lconstr = (fun env sigma -> pr_and_constr_expr (pr_lglob_constr_env env));
         pr_pattern = (fun env sigma -> pr_pat_and_constr_expr (pr_glob_constr_env env));
-        pr_lpattern = (fun env sigma -> pr_pat_and_constr_expr (pr_lglob_constr_env env));
         pr_constant = pr_or_var (pr_and_short_name (pr_evaluable_reference_env env));
+        pr_lpattern = (fun env sigma -> pr_pat_and_constr_expr (pr_lglob_constr_env env));
         pr_reference = pr_ltac_or_var (pr_located pr_ltac_constant);
         pr_name = pr_lident;
         pr_generic = Pputils.pr_glb_generic;
-- 
cgit v1.2.3