From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 23 Jun 2016 17:30:06 +0000 (+0000)
Subject: switch force_backtrack to execute a backtrack step
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc7cb6357fbec806ed7d87d356fd2f4453690320;hp=c76de01dd23ba8e59821c8587f4e529d31181682;p=scpubgit%2FDX.git

switch force_backtrack to execute a backtrack step
---

diff --git a/lib/DX/SearchState.pm b/lib/DX/SearchState.pm
index 18979e7..dcfb606 100644
--- a/lib/DX/SearchState.pm
+++ b/lib/DX/SearchState.pm
@@ -44,12 +44,9 @@ sub force_backtrack {
   my ($first_alt, @rest_alt) = @{$self->alternatives};
   return undef unless $first_alt;
   trace 'search.backtrack.forced' => $first_alt->[0];
-  return ref($self)->new(
-    current_hypothesis => $first_alt->[0],
-    next_step => $first_alt->[1],
-    alternatives => \@rest_alt,
-    propositions => $self->propositions,
-  );
+  return $self->but(
+    next_step => DX::Step::Backtrack->new,
+  )->with_one_step;
 }
 
 1;