equal
deleted
inserted
replaced
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 |