Commit 076eeb1d authored by POTTIER Francois's avatar POTTIER Francois

Comment.

parent 6cf4df37
......@@ -154,6 +154,8 @@ let tvprefix name =
(* ------------------------------------------------------------------------ *)
let filter_typedefs (items : interface_item list) : typedef list =
(* TEMPORARY ideally, should not flatten, as this turns a nonrecursive
definition into a recursive one *)
List.flatten (List.map (fun item ->
match item with
| IITypeDecls defs ->
......
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