diff options
| author | herbelin | 2003-01-22 20:55:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-22 20:55:50 +0000 |
| commit | 8e1e1503a1736dc7b5ab1a0d34dbc2e3e451998e (patch) | |
| tree | d71a58e42a6c57316b1d45046e0e72f8b0277693 | |
| parent | 3619aac86d9f5f2ffb409829ac2600b48aa48659 (diff) | |
Mauvais environnement d'évaluation pour les globaux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3597 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index b3656c419f..fdafe9a64d 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1107,7 +1107,7 @@ and eval_tactic ist = function | TacArg a -> assert false and interp_ltac_qualid is_applied ist gl (loc,qid as lqid) = - try val_interp ist gl (lookup qid) + try val_interp {lfun=[];lmatch=[];debug=ist.debug} gl (lookup qid) with Not_found -> interp_pure_qualid is_applied (pf_env gl) lqid and interp_ltac_reference isapplied ist gl = function |