let string_of_ts_nte_inline (doc_settings : t_doc_settings) (nte_table : t_nte_table) (path : t_path) (nte_inline : ts_nte_inline) : string = match nte_inline with |Cs_nte_inline (_,i) -> let rec aux (table : t_nte_table) : string = match table with |[] -> let _ : unit = IO.print_warning (String.concat "" [ "WARNING: footnote "; string_of_path doc_settings path; " contains a footnote; nested footnotes are not supported."; ]) in "??" |(Ftn_entry_inline (Cs_nte_inline (_,j), _, n))::tl -> if i=j then string_of_path doc_settings [NTE_NODE n] else aux tl |hd::tl -> aux tl in aux nte_table