+ let items = List.rev (X.list_rev_map_filter filter items) in
+ let local_items, global_items = List.partition partition items in
+ let comment = T.Line (Printf.sprintf "From %s" name) in
+ if global_items <> [] then
+ set_items st st.package (comment :: global_items);
+ init name; set_items st name local_items; commit st name