aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/envars.ml
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2009-01-02 17:19:41 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2009-01-02 17:19:41 +0000
commit7e0edc16cd7beeff5c569fd0df531cb975642415 (patch)
tree0fddf1afa8586238c2f90bbd0ac2c1c80efeb7f8 /lib/envars.ml
parentbd62a667bc97c9dac0c288c873a14f9bf42d76b0 (diff)
Made the debugger work again:
- call to open_process_full from Envars.camlp4lib was apparently disturbing stdin/stdout/stderr and precipitating coqtop.byte death in ocamldebug; renounced to add camlp4 to the ml path (why was it useful?) which was the reason for calling camlp4lib (seems like camlp4lib is now useless), - Envars was needing str.cma which was missing when calling printers.cma; renounced to use str.cma since its only use was for an elementary split function. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/envars.ml')
-rw-r--r--lib/envars.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/envars.ml b/lib/envars.ml
index 82e0d3162..e67fc32d9 100644
--- a/lib/envars.ml
+++ b/lib/envars.ml
@@ -30,8 +30,8 @@ let coqlib () =
(if !Flags.boot then Coq_config.coqsrc else guess_coqlib ())
let path_to_list p =
- let sep = Str.regexp_string (if Sys.os_type = "Win32" then ";" else ":") in
- Str.split sep p
+ let sep = if Sys.os_type = "Win32" then ';' else ':' in
+ Util.split_string_at sep p
let rec which l f =
match l with