aboutsummaryrefslogtreecommitdiffhomepage
path: root/proofs
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2000-12-20 11:02:38 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2000-12-20 11:02:38 +0000
commit4bf65eece168bb2e43c44d31efef083a0fb55f19 (patch)
tree656b4976c8afc164cb251b585a42cd7a5645218f /proofs
parent923005cce9890435c92f2ee37d21154135dff9f5 (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.ml4
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