diff options
| author | Alasdair Armstrong | 2019-06-04 16:37:48 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-06-04 16:37:48 +0100 |
| commit | 6d3a6edcd616621eb40420cfb16a34762a32c5c1 (patch) | |
| tree | d3a753af05b4a3d40a5ce0c6eb7711770105caba /src/latex.ml | |
| parent | e24587857d1e61b428d784c699a683984c00ce36 (diff) | |
| parent | 239e13dc149af80f979ea95a3c9b42220481a0a1 (diff) | |
Merge branch 'sail2' into separate_bv
Diffstat (limited to 'src/latex.ml')
| -rw-r--r-- | src/latex.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/latex.ml b/src/latex.ml index aa786b83..9f5979c1 100644 --- a/src/latex.ml +++ b/src/latex.ml @@ -342,7 +342,7 @@ let rec latex_command cat id no_loc ((l, _) as annot) = close_out chan; let command = sprintf "\\%s%s%s" !opt_prefix (category_name cat) (latex_id id) in if StringSet.mem command state.commands then - (Util.warn ("Multiple instances of " ^ string_of_id id ^ " only generating latex for the first"); empty) + (Reporting.warn "" l ("Multiple instances of " ^ string_of_id id ^ " only generating latex for the first"); empty) else begin state.commands <- StringSet.add command state.commands; @@ -417,7 +417,7 @@ let process_pragma l command = Some (ksprintf string "\\newcommand{\\%s}{%s}" name body) | _ -> - Util.warn (Printf.sprintf "Bad latex pragma %s" (Reporting.loc_to_string l)); + Reporting.warn "Bad latex pragma at" l ""; None let tdef_id = function |