equal
deleted
inserted
replaced
198 operations). |
198 operations). |
199 *) |
199 *) |
200 fun trace_action action name = |
200 fun trace_action action name = |
201 if action = Thy_Info.Update then |
201 if action = Thy_Info.Update then |
202 List.app (tell_file_loaded true) (Thy_Info.loaded_files name) |
202 List.app (tell_file_loaded true) (Thy_Info.loaded_files name) |
203 else if action = Thy_Info.Outdate then |
|
204 List.app (tell_file_outdated true) (Thy_Info.loaded_files name) |
|
205 else if action = Thy_Info.Remove then |
203 else if action = Thy_Info.Remove then |
206 List.app (tell_file_retracted true) (Thy_Info.loaded_files name) |
204 List.app (tell_file_retracted true) (Thy_Info.loaded_files name) |
207 else () |
205 else () |
208 |
206 |
209 |
207 |