let clean_up_link_to_build () =
  Options.entry := Some(clean_up_links (the !Options.entry))