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;