diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-28 13:22:47 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-28 13:22:47 +0000 |
| commit | ab65dd50ee42dd64a8df08ec61fef6da307123ca (patch) | |
| tree | ae8697b67fb742b3f4535d44619bda81bd1cf92f /parsing | |
| parent | 2e858fc6889d6891bbcc765d100312e214ff5f03 (diff) | |
Localisation erreurs TacAlias; Globalisation moins tolérante dans les
définitions de tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3968 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/egrammar.ml | 2 | ||||
| -rw-r--r-- | parsing/pptactic.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index ef3919c81..c3b5d98f8 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -428,7 +428,7 @@ let make_vprod_item univ = function let add_tactic_entries gl = let univ = get_univ "tactic" in - let make_act s tac loc l = Tacexpr.TacAlias (s,l,tac) in + let make_act s tac loc l = Tacexpr.TacAlias (loc,s,l,tac) in let f (s,l,tac) = make_rule univ (make_act s tac) (make_vprod_item "tactic") l in let rules = List.map f gl in diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 8560726fb..9b11b58ac 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -396,7 +396,7 @@ let rec pr_atom0 = function (* Main tactic printer *) and pr_atom1 = function | TacExtend (_,s,l) -> pr_extend pr_constr pr_tac s l - | TacAlias (s,l,_) -> pr_extend pr_constr pr_tac s (List.map snd l) + | TacAlias (_,s,l,_) -> pr_extend pr_constr pr_tac s (List.map snd l) (* Basic tactics *) | TacIntroPattern [] as t -> pr_atom0 t |