equal
deleted
inserted
replaced
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 |
|