diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2000-03-06 22:12:09 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2000-03-06 22:12:09 +0000 |
| commit | b96208b7a247cbb6d9d162fbfaf54448af33589c (patch) | |
| tree | a63fb52f6e36ca47129637586cf6d0fd3d576733 /bytecomp/symtable.ml | |
| parent | a56ae9a35f7cb4b5ccd128c2b9610b4913d71331 (diff) | |
Revu les impressions du compilateur
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2908 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/symtable.ml')
| -rw-r--r-- | bytecomp/symtable.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/bytecomp/symtable.ml b/bytecomp/symtable.ml index 5d950c003..19f649d91 100644 --- a/bytecomp/symtable.ml +++ b/bytecomp/symtable.ml @@ -289,12 +289,12 @@ let filter_global_map p gmap = (* Error report *) -open Formatmsg +open Format -let report_error = function - Undefined_global s -> - printf "Reference to undefined global `%s'" s +let report_error ppf = function + | Undefined_global s -> + fprintf ppf "Reference to undefined global `%s'" s | Unavailable_primitive s -> - printf "The external function `%s' is not available" s + fprintf ppf "The external function `%s' is not available" s | Wrong_vm s -> - printf "Cannot find or execute the runtime system %s" s + fprintf ppf "Cannot find or execute the runtime system %s" s |