add some basic tracing using the new deparser

[scpubgit/DX.git] / lib / DX / Step / Backtrack.pm

diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm
index 047b693..d14ca2f 100644 (file)
--- 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) {