OpamRepositoryState.with_ `Lock_write gt @@ fun rt ->
      if full_wipe then
        let repos =
          OpamRepositoryName.Map.keys rt.OpamStateTypes.repositories
        in
        check_for_repos repos names
          (OpamConsole.warning
             "No configured repositories by these names found: %s");
        OpamRepositoryState.drop @@
        List.fold_left OpamRepositoryCommand.remove rt names
      else begin
        let has_known_repos =
          List.fold_left (fun has_known_repos switch ->
              let repos = OpamRepositoryCommand.switch_repos rt switch in
              check_for_repos' repos names
                (OpamConsole.warning
                   "No configured repositories by these names found in \
                    the selection of switch '%s': %s"
                   (OpamSwitch.to_string switch))
              || has_known_repos)
            false switches
        in
        if scope = [`Current_switch] && has_known_repos then
          OpamConsole.msg
            "Repositories removed from the selections of switch %s. \
             Use '--all' to forget about them altogether.\n"
            (OpamSwitch.to_string (OpamStateConfig.get_switch ()))
      end;
      let rm =
        List.filter (fun n ->
            not (List.exists (OpamRepositoryName.equal n) names))
      in
      ignore @@ OpamRepositoryCommand.update_selection gt
        ~global ~switches:switches rm;
      `Ok ()