X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FBacktrack.pm;h=f145351a63523b3e2ebaf4fb5596214791464ee6;hb=a3ff9ce39be445b043924592eae745c2ee84febf;hp=ca565bc24daa903d329fa981812238d6f04ae379;hpb=df377b33658256c77066606f28d4fe4e3f5f974e;p=scpubgit%2FDX.git diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm index ca565bc..f145351 100644 --- a/lib/DX/Step/Backtrack.pm +++ b/lib/DX/Step/Backtrack.pm @@ -8,12 +8,7 @@ sub apply_to { my ($self, $ss) = @_; my ($first_alt, @rest_alt) = @{$ss->adjustments_made}; return $ss->but(next_step => $ss->on_exhaustion_step) unless $first_alt; - return $ss->but( - current_hypothesis => $first_alt->[1], - adjustments_made => \@rest_alt, - next_step => $first_alt->[0]->alternative_step, - is_solution_state => 0, - ); + return $first_alt->[1]->but(next_step => $first_alt->[0]->alternative_step); } 1;