diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-14 14:14:00 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-14 14:14:00 +0000 |
commit | aa27ea16ab398eda93bdccc9c82b163ba1e23100 (patch) | |
tree | 49e01f0af134360e22d5306e879a5f9010b01901 /proofs | |
parent | 747fa9e9cbd1cbd8fedfb9491b0b361162bb48b9 (diff) |
L'application de ltac attend une référence; meilleure protection contre
les erreurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3141 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/tacexpr.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/tacexpr.ml b/proofs/tacexpr.ml index eefee41f5..b63588aaa 100644 --- a/proofs/tacexpr.ml +++ b/proofs/tacexpr.ml @@ -209,7 +209,8 @@ and ('constr,'cst,'ind,'id) gen_tactic_arg = | ConstrMayEval of 'constr may_eval | Reference of reference_expr | Integer of int - | TacCall of loc * ('constr,'cst,'ind,'id) gen_tactic_arg * ('constr,'cst,'ind,'id) gen_tactic_arg list + | TacCall of loc * + reference_expr * ('constr,'cst,'ind,'id) gen_tactic_arg list | Tacexp of raw_tactic_expr type raw_atomic_tactic_expr = |