val do_commit : Commit.commit_data -> unit