eliminate vestigial force_backtrack methods

[scpubgit/DX.git] / lib / DX / SearchProcess.pm

diff --git a/lib/DX/SearchProcess.pm b/lib/DX/SearchProcess.pm
index 4e44db1..2838584 100644 (file)
--- a/lib/DX/SearchProcess.pm
+++ b/lib/DX/SearchProcess.pm
@@ -6,7 +6,7 @@ use DX::Class;
 has current_search_state => (
   is => 'ro', isa => SearchState, required => 1,
   handles => [ qw(
-    current_hypothesis next_step propositions adjustments_made
+    current_hypothesis next_step propositions
   ) ],
 );
 
@@ -34,17 +34,10 @@ sub find_solution {
   return $self->but(current_search_state => $state);
 }
 
-sub force_backtrack {
-  my ($self) = @_;
-  my $new_ss = $self->current_search_state->force_backtrack;
-  return undef unless $new_ss;
-  return $self->but(current_search_state => $new_ss);
-}
-
 sub find_next_solution {
   my ($self) = @_;
-  return undef unless my $bt = $self->force_backtrack;
-  return $bt->find_solution;
+  my $state = $self->current_search_state->with_one_step;
+  return $self->but(current_search_state => $state)->find_solution;
 }
 
 1;