diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
| commit | a048d42b10feaffe3e5ee8e891e15e8b59407e56 (patch) | |
| tree | 54ee79580060b51bc44d39f513ce63d9b8f3c4c4 /toplevel | |
| parent | bad71c148081a820604b9901300a5b8e2b730a95 (diff) | |
Ajout du module Formatmsg pour rediriger les messages du systeme vers stdout ou stderr suivant le contexte
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2486 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/genprintval.ml | 2 | ||||
| -rw-r--r-- | toplevel/topdirs.ml | 2 | ||||
| -rw-r--r-- | toplevel/toploop.ml | 4 | ||||
| -rw-r--r-- | toplevel/trace.ml | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/toplevel/genprintval.ml b/toplevel/genprintval.ml index 9df142a24..7b73ba6ab 100644 --- a/toplevel/genprintval.ml +++ b/toplevel/genprintval.ml @@ -14,7 +14,7 @@ (* To print values *) open Misc -open Format +open Formatmsg open Longident open Path open Types diff --git a/toplevel/topdirs.ml b/toplevel/topdirs.ml index 3437f6897..d1e49742e 100644 --- a/toplevel/topdirs.ml +++ b/toplevel/topdirs.ml @@ -13,7 +13,7 @@ (* Toplevel directives *) -open Format +open Formatmsg open Misc open Longident open Path diff --git a/toplevel/toploop.ml b/toplevel/toploop.ml index 4551f6465..60d7b34b7 100644 --- a/toplevel/toploop.ml +++ b/toplevel/toploop.ml @@ -14,7 +14,7 @@ (* The interactive toplevel loop *) open Lexing -open Format +open Formatmsg open Config open Misc open Parsetree @@ -313,5 +313,5 @@ let loop() = let run_script name = Compile.init_path(); toplevel_env := Compile.initial_env(); - Format.set_formatter_out_channel stderr; + Formatmsg.set_output Format.err_formatter; use_silently name diff --git a/toplevel/trace.ml b/toplevel/trace.ml index bf8e1550e..ce5caace0 100644 --- a/toplevel/trace.ml +++ b/toplevel/trace.ml @@ -13,7 +13,7 @@ (* The "trace" facility *) -open Format +open Formatmsg open Misc open Longident open Types |