src/Pure/System/options.ML
changeset 62875 5a0c06491974
parent 62791 64ebecf8646c
child 62878 1cec457e0a03
equal deleted inserted replaced
62874:b0194643e64c 62875:5a0c06491974
   213   (case getenv "ISABELLE_PROCESS_OPTIONS" of
   213   (case getenv "ISABELLE_PROCESS_OPTIONS" of
   214     "" => ()
   214     "" => ()
   215   | name =>
   215   | name =>
   216       let val path = Path.explode name in
   216       let val path = Path.explode name in
   217         (case try File.read path of
   217         (case try File.read path of
   218           SOME s => (set_default (decode (YXML.parse_body s)); ignore (try File.rm path))
   218           SOME s =>
       
   219             (set_default (decode (YXML.parse_body s));
       
   220              if default_bool "ML_system_bootstrap" then () else ignore (try File.rm path))
   219         | NONE => ())
   221         | NONE => ())
   220       end);
   222       end);
   221 
   223 
   222 val _ = load_default ();
   224 val _ = load_default ();
   223 val _ = ML_Pretty.print_depth (default_int "ML_print_depth");
   225 val _ = ML_Pretty.print_depth (default_int "ML_print_depth");