src/Pure/ProofGeneral/proof_general_pgip.ML
changeset 37981 9a15982f41fe
parent 37977 3ceccd415145
child 38228 ada3ab6b9085
equal deleted inserted replaced
37980:b8c3d4dc1e3e 37981:9a15982f41fe
   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