diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-08 20:23:17 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-08 20:23:17 +0000 |
commit | 9b610cc3493997088546be5225f74aa2abd3759c (patch) | |
tree | d1a80e336c118bdc72aeb7c254357bc3a34a30d0 /parsing/egrammar.ml | |
parent | 603858825397c5a5fbdf37da2e50b5662278ad12 (diff) |
Changement du type d'argument 'TacticArgType X' en un type
'ExtraArgType "tacticX"' (0<=X<=5) créé dynamiquement, ceci afin de
pouvoir typer correctement les wit_tactic (auparavant le typage des
wit_tactic était trop libéral et permettait de casser la
subject-reduction).
Amélioration au passage de l'affichage de la tactique "replace by"
(module Extratactics).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8926 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/egrammar.ml')
-rw-r--r-- | parsing/egrammar.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index f7127ea61..bc351cbaa 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -210,7 +210,7 @@ let rec interp_entry_name up_level u s = else try let i = find_index "tactic" s in - TacticArgType i, + ExtraArgType s, if i=up_level then Gramext.Sself else if i=up_level-1 then Gramext.Snext else Gramext.Snterml(Pcoq.Gram.Entry.obj Tactic.tactic_expr,string_of_int i) |