src/Pure/ML-Systems/smlnj.ML
changeset 60729 f5989a2c1f67
parent 59468 fe6651760643
child 60745 d86b4cd0f1ec
equal deleted inserted replaced
60726:6d500a224cbe 60729:f5989a2c1f67
   160 
   160 
   161 end;
   161 end;
   162 
   162 
   163 
   163 
   164 use "ML-Systems/unsynchronized.ML";
   164 use "ML-Systems/unsynchronized.ML";
       
   165 use "ML-Systems/ml_debugger_dummy.ML";
   165 
   166 
   166 
   167 
   167 (* ML system operations *)
   168 (* ML system operations *)
   168 
   169 
   169 use "ML-Systems/ml_system.ML";
   170 use "ML-Systems/ml_system.ML";
   176 fun save_state name =
   177 fun save_state name =
   177   if SMLofNJ.exportML name then ()
   178   if SMLofNJ.exportML name then ()
   178   else OS.FileSys.rename {old = name ^ "." ^ platform, new = name};
   179   else OS.FileSys.rename {old = name ^ "." ^ platform, new = name};
   179 
   180 
   180 end;
   181 end;
   181