Preserve nested stags

2024-10-28 14:09:01 +00:00 · 2024-10-28 14:09:01 +00:00 · 54127004d8
parent 1390f28061
commit 54127004d8
1 changed files with 1 additions and 1 deletions
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@ -655,7 +655,7 @@ let rec find_tree_contents a level = function
  | StDataBeginTree _ as h::t ->
      find_tree_contents (h::a) (level + 1) t
  | StDataEndTree::t ->
-      if level = 1 then (rev a, t) else find_tree_contents a (level - 1) t
+      if level = 1 then (rev a, t) else find_tree_contents (StDataEndTree::a) (level - 1) t
  | h::t -> find_tree_contents (h::a) level t

 let mstdebug = ref false