clarified file name;

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/ML/ml_init.ML	Thu Dec 14 21:31:54 2017 +0100
@@ -0,0 +1,33 @@
+(*  Title:      Pure/ML/ml_init.ML
+    Author:     Makarius
+
+Initial ML environment.
+*)
+
+structure PolyML_Pretty =
+struct
+  datatype context = datatype PolyML.context;
+  datatype pretty = datatype PolyML.pretty;
+end;
+
+val seconds = Time.fromReal;
+
+val _ =
+  List.app ML_Name_Space.forget_val
+    ["isSome", "getOpt", "valOf", "foldl", "foldr", "print", "explode", "concat"];
+
+val ord = SML90.ord;
+val chr = SML90.chr;
+val raw_explode = SML90.explode;
+val implode = String.concat;
+
+val pointer_eq = PolyML.pointerEq;
+
+val error_depth = PolyML.error_depth;
+
+open Thread;
+
+datatype illegal = Interrupt;
+
+structure Basic_Exn: BASIC_EXN = Exn;
+open Basic_Exn;

--- a/src/Pure/ML/ml_pervasive.ML	Thu Dec 14 21:15:04 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-(*  Title:      Pure/ML/ml_pervasive.ML
-    Author:     Makarius
-
-Initial pervasive ML environment.
-*)
-
-structure PolyML_Pretty =
-struct
-  datatype context = datatype PolyML.context;
-  datatype pretty = datatype PolyML.pretty;
-end;
-
-val seconds = Time.fromReal;
-
-val _ =
-  List.app ML_Name_Space.forget_val
-    ["isSome", "getOpt", "valOf", "foldl", "foldr", "print", "explode", "concat"];
-
-val ord = SML90.ord;
-val chr = SML90.chr;
-val raw_explode = SML90.explode;
-val implode = String.concat;
-
-val pointer_eq = PolyML.pointerEq;
-
-val error_depth = PolyML.error_depth;
-
-open Thread;
-
-datatype illegal = Interrupt;
-
-structure Basic_Exn: BASIC_EXN = Exn;
-open Basic_Exn;

--- a/src/Pure/ROOT.ML	Thu Dec 14 21:15:04 2017 +0100
+++ b/src/Pure/ROOT.ML	Thu Dec 14 21:31:54 2017 +0100
@@ -5,7 +5,7 @@
 
 section "Bootstrap phase 0: Poly/ML setup";
 
-ML_file "ML/ml_pervasive.ML";
+ML_file "ML/ml_init.ML";
 ML_file "ML/ml_system.ML";
 ML_file "System/distribution.ML";