use the correct trace format type for failure_dependencies

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

diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm
index df74d92..81335ac 100644 (file)
--- a/lib/DX/Step/Backtrack.pm
+++ b/lib/DX/Step/Backtrack.pm
@@ -15,8 +15,8 @@ sub apply_to {
     [ symbol => 'backtrack' ],
     [ 'enter_block' ]
   ] ];
-  trace backtrack => [ statement => [
-    [ symbol => 'failure_dependencies' ],
+  trace backtrack => [ word_and_body => [
+    'failure_dependencies',
     format_deps($rspace->geometry_depends_on)
   ] ];
   my $dmap = DX::DependencyMap->new_empty
@@ -49,8 +49,8 @@ sub apply_to {
         $dmap = $dmap->with_dependencies_for(
           backtrack => $rspace_was->geometry_depends_on
         );
-        trace backtrack => [ statement => [
-          [ symbol => 'failure_dependencies' ],
+        trace backtrack => [ word_and_body => [
+          'failure_dependencies',
           format_deps(compact_deps($dmap->dependencies_for('backtrack')))
         ] ];
         next DECISION;