diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 11:02:38 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-20 11:02:38 +0000 |
| commit | 4bf65eece168bb2e43c44d31efef083a0fb55f19 (patch) | |
| tree | 656b4976c8afc164cb251b585a42cd7a5645218f /proofs | |
| parent | 923005cce9890435c92f2ee37d21154135dff9f5 (diff) | |
Bug dans l'utilisation de l'option debug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1165 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/evar_refiner.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 456ce67e9..40c1f2906 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -25,14 +25,12 @@ type w_tactic = walking_constraints -> walking_constraints let local_Constraints lc gs = refiner (Local_constraints lc) gs -let debug = ref true;; - let startWalk gls = let evc = project_with_focus gls in let wc = (ids_mk evc) in (wc, (fun wc' gls' -> - if !debug & ids_eq wc wc' & gls.it = gls'.it then + if not !Options.debug or (ids_eq wc wc' & gls.it = gls'.it) then if Intset.equal (get_lc gls.it) (get_focus (ids_it wc')) then tclIDTAC {it=gls'.it; sigma = get_gc (ids_it wc')} else |