src/Pure/Thy/thy_info.ML
changeset 54722 5f5608bfe230
parent 54559 39d91cac6e91
child 55461 ce676a750575
equal deleted inserted replaced
54720:0a9920e46b3a 54722:5f5608bfe230
   326           val dir' = Path.append dir (Path.dir path);
   326           val dir' = Path.append dir (Path.dir path);
   327           val _ = member (op =) initiators name andalso error (cycle_msg initiators);
   327           val _ = member (op =) initiators name andalso error (cycle_msg initiators);
   328 
   328 
   329           val (current, deps, theory_pos, imports, keywords) = check_deps dir' name
   329           val (current, deps, theory_pos, imports, keywords) = check_deps dir' name
   330             handle ERROR msg => cat_error msg
   330             handle ERROR msg => cat_error msg
   331               (loader_msg "the error(s) above occurred while examining theory" [name] ^
   331               (loader_msg "the error(s) above occurred for theory" [name] ^
   332                 Position.here require_pos ^ required_by "\n" initiators);
   332                 Position.here require_pos ^ required_by "\n" initiators);
   333 
   333 
   334           val parents = map (base_name o #1) imports;
   334           val parents = map (base_name o #1) imports;
   335           val (parents_current, tasks') =
   335           val (parents_current, tasks') =
   336             require_thys document last_timing (name :: initiators)
   336             require_thys document last_timing (name :: initiators)