function
[] -> layout := current_s::!layout
| Box.Text (_,s)::tl -> aux_h (current_s ^ s) tl
- | (Box.Space _)::_ -> assert false
+ | (Box.Space _)::tl -> aux_h (current_s ^ " ") tl
| Box.H (_,bl)::tl -> aux_h current_s (bl@tl)
| Box.V (_,[])::tl -> aux_h current_s tl
| Box.V (_,[b])::tl -> aux_h current_s (b::tl)