diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-10 15:02:00 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-05-10 15:02:00 +0000 |
| commit | fa04b2438319c763ac6d1fd07ecdfd47a0663b2c (patch) | |
| tree | 22ff85dab468a28d541cde749d5fd6d53d8426b7 /contrib/correctness/penv.ml | |
| parent | 41ba7c419bd41d500677a6331a58f53e413d8f59 (diff) | |
message 'is defined' seulement en mode verbose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1741 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/penv.ml')
| -rw-r--r-- | contrib/correctness/penv.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/correctness/penv.ml b/contrib/correctness/penv.ml index 8604968e2..466905962 100644 --- a/contrib/correctness/penv.ml +++ b/contrib/correctness/penv.ml @@ -221,7 +221,8 @@ let register id id' = try let (v,p) = Idmap.find id !edited in let _ = add_global id' v (Some p) in - mSGNL (hOV 0 [< 'sTR"Program "; pr_id id'; 'sPC; 'sTR"is defined" >]); + Options.if_verbose + mSGNL (hOV 0 [< 'sTR"Program "; pr_id id'; 'sPC; 'sTR"is defined" >]); edited := Idmap.remove id !edited with Not_found -> () |