equal
deleted
inserted
replaced
165 List.app tell_file_retracted (ThyInfo.loaded_files name) |
165 List.app tell_file_retracted (ThyInfo.loaded_files name) |
166 else (); |
166 else (); |
167 |
167 |
168 in |
168 in |
169 fun setup_thy_loader () = ThyInfo.add_hook trace_action; |
169 fun setup_thy_loader () = ThyInfo.add_hook trace_action; |
170 fun sync_thy_loader () = List.app (trace_action ThyInfo.Update) (ThyInfo.names ()); |
170 fun sync_thy_loader () = List.app (trace_action ThyInfo.Update) (ThyInfo.get_names ()); |
171 end; |
171 end; |
172 |
172 |
173 |
173 |
174 (* get informed about files *) |
174 (* get informed about files *) |
175 |
175 |