depollution (PR#1914, PR#1956)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6023 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 11 insertions, 11 deletions

diff --git a/stdlib/sys.ml b/stdlib/sys.ml
index c011554d0..cb53c8258 100644
--- a/stdlib/sys.ml
+++ b/stdlib/sys.ml
@@ -15,23 +15,23 @@
 
 (* System interface *)
 
-external get_config: unit -> string * int = "sys_get_config"
-external get_argv: unit -> string * string array = "sys_get_argv"
+external get_config: unit -> string * int = "caml_sys_get_config"
+external get_argv: unit -> string * string array = "caml_sys_get_argv"
 
 let (executable_name, argv) = get_argv()
 let (os_type, word_size) = get_config()
 let max_array_length = (1 lsl (word_size - 10)) - 1;;
 let max_string_length = word_size / 8 * max_array_length - 1;;
 
-external file_exists: string -> bool = "sys_file_exists"
-external remove: string -> unit = "sys_remove"
-external rename : string -> string -> unit = "sys_rename"
-external getenv: string -> string = "sys_getenv"
-external command: string -> int = "sys_system_command"
-external time: unit -> float = "sys_time"
-external chdir: string -> unit = "sys_chdir"
-external getcwd: unit -> string = "sys_getcwd"
-external readdir : string -> string array = "sys_read_directory"
+external file_exists: string -> bool = "caml_sys_file_exists"
+external remove: string -> unit = "caml_sys_remove"
+external rename : string -> string -> unit = "caml_sys_rename"
+external getenv: string -> string = "caml_sys_getenv"
+external command: string -> int = "caml_sys_system_command"
+external time: unit -> float = "caml_sys_time"
+external chdir: string -> unit = "caml_sys_chdir"
+external getcwd: unit -> string = "caml_sys_getcwd"
+external readdir : string -> string array = "caml_sys_read_directory"
 
 let interactive = ref false