equal
deleted
inserted
replaced
69 map Present.read_variant (space_explode ":" (Options.string options "document_variants")); |
69 map Present.read_variant (space_explode ":" (Options.string options "document_variants")); |
70 val _ = |
70 val _ = |
71 (case duplicates (op =) (map fst document_variants) of |
71 (case duplicates (op =) (map fst document_variants) of |
72 [] => () |
72 [] => () |
73 | dups => error ("Duplicate document variants: " ^ commas_quote dups)); |
73 | dups => error ("Duplicate document variants: " ^ commas_quote dups)); |
|
74 |
|
75 val _ = |
|
76 if Options.string options "document_dump" = "" then () |
|
77 else |
|
78 Output.physical_stderr |
|
79 "### Legacy feature: old option \"document_dump\" -- use \"document_output\" instead\n"; |
74 val _ = |
80 val _ = |
75 Session.init do_output false |
81 Session.init do_output false |
76 (Options.bool options "browser_info") browser_info |
82 (Options.bool options "browser_info") browser_info |
77 (Options.string options "document") |
83 (Options.string options "document") |
78 (Options.bool options "document_graph") |
84 (Options.bool options "document_graph") |