Fix TOC
This commit is contained in:
parent
4b59f3e4ae
commit
4a3f830202
|
@ -302,6 +302,11 @@ let matterhorn_09_005 st st2 pdf =
|
|||
(* A TOC-related structure element is used in a way that does not conform to
|
||||
Table 333 in ISO 32000-1. *)
|
||||
|
||||
let print_children (E (n, cs)) =
|
||||
Printf.printf "%S: " n;
|
||||
iter (fun (E (n, _)) -> Printf.printf "%S " n) cs;
|
||||
flprint "\n"
|
||||
|
||||
(* We test two things: a) everything under a TOC is correct; and b) There is no
|
||||
TOCI except under a TOC. *)
|
||||
let matterhorn_09_006 st st2 pdf =
|
||||
|
|
Loading…
Reference in New Issue