Commit 8063a44e authored by Andrei Paskevich's avatar Andrei Paskevich

Ind_itp: suppress warning

parent e93941ce
......@@ -173,7 +173,7 @@ let revert_tr_symbol symbol_list =
| [] -> (pr_acc, ls_acc)
| Tsprsymbol pr :: tl -> convert_list (pr :: pr_acc) ls_acc tl
| Tslsymbol ls :: tl -> convert_list pr_acc (ls :: ls_acc) tl
| Tstysymbol _ :: tl ->
| Tstysymbol _ :: _tl ->
raise (Arg_trans "Tysymbol should not appear here. Please report")
in
let (prlist, lslist) = convert_list [] [] symbol_list in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment