diff options
| author | monate | 2003-03-05 12:17:18 +0000 |
|---|---|---|
| committer | monate | 2003-03-05 12:17:18 +0000 |
| commit | bd6e68f4ef7bac1e9729b875f944048b394e71af (patch) | |
| tree | 251aaa850893ef32dc8a5583bdfaeefdc6fa5533 /ide/ideutils.ml | |
| parent | e6c6fd55e777ea7a9c7c85399138deab40284f28 (diff) | |
CoqIde: Install.ide Revert bugfix.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3741 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 59970a622a..784c4a4d4b 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -27,7 +27,9 @@ let process_pending () = let debug = Options.debug let prerr_endline s = - if !debug then (prerr_endline s;flush stderr) else () + if !debug then (prerr_endline s;flush stderr) +let prerr_string s = + if !debug then (prerr_string s;flush stderr) let print_id id = prerr_endline ("GOT sig id :"^(string_of_int (Obj.magic id))) |