X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FBacktrack.pm;h=d14ca2f4260b86e295ab8b31bf124dcb183ccb98;hb=5b6cab1b3b47f9b24e7cde2a512270d0cad63150;hp=047b693b1934bb48f4bee0930975b89de1d7503c;hpb=c25fbf056abf91b25ef365e9be2a84eb2b132dba;p=scpubgit%2FDX.git

diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm
index 047b693..d14ca2f 100644
--- a/lib/DX/Step/Backtrack.pm
+++ b/lib/DX/Step/Backtrack.pm
@@ -6,6 +6,7 @@ with 'DX::Role::Step';
 
 sub apply_to {
   my ($self, $ss) = @_;
+  trace backtrack => [ statement => [ [ symbol => 'backtrack' ] ] ];
   foreach my $adj (@{$ss->adjustments_made}) {
     my ($step_was, $ss_was) = @$adj;
     if (my $alt = $step_was->alternative_step) {