src/Pure/Thy/present.ML
changeset 29497 d828e6ca9c11
parent 28840 049f0a8faa35
child 29606 fedb8be05f24
equal deleted inserted replaced
29496:d35769eb9fc9 29497:d828e6ca9c11
   465             val base = Path.base path;
   465             val base = Path.base path;
   466             val base_html = html_ext base;
   466             val base_html = html_ext base;
   467             val _ = add_file (Path.append html_prefix base_html,
   467             val _ = add_file (Path.append html_prefix base_html,
   468               HTML.ml_file (Url.File base) (File.read path));
   468               HTML.ml_file (Url.File base) (File.read path));
   469             in (Url.File base_html, Url.File raw_path, loadit) end
   469             in (Url.File base_html, Url.File raw_path, loadit) end
   470       | NONE => error ("Browser info: expected to find ML file" ^ quote (Path.implode raw_path)));
   470       | NONE => error ("Browser info: expected to find ML file " ^ quote (Path.implode raw_path)));
   471 
   471 
   472     val files_html = map prep_file files;
   472     val files_html = map prep_file files;
   473 
   473 
   474     fun prep_html_source (tex_source, html_source, html) =
   474     fun prep_html_source (tex_source, html_source, html) =
   475       let
   475       let