X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FBacktrack.pm;fp=lib%2FDX%2FStep%2FBacktrack.pm;h=0da00a6a7df9903e03161eac02a53678926840e0;hb=b35f3e3b746ff1a6ab0d1223de3abd1118ce219d;hp=81335ac79080e06db38cdcc8acaab114b149f9fc;hpb=72304627b100c7e3ff434c7a9d2e057b861fb776;p=scpubgit%2FDX.git

diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm
index 81335ac..0da00a6 100644
--- a/lib/DX/Step/Backtrack.pm
+++ b/lib/DX/Step/Backtrack.pm
@@ -28,8 +28,13 @@ sub apply_to {
     trace backtrack => [ statement => [
       [ symbol => 'decision' ],
       [ pairs => [
-        [ for => $rspace_was->proposition, ]
-          #aperture => 
+        [ for => $rspace_was->proposition, ],
+        [ aperture => [ block => [
+            map [ statement => [
+              [ symbol => (split '::', ${$_->[0]})[-1] ],
+              [ value_path => [ @{$_}[1..$#$_] ] ],
+            ] ], @{$rspace_was->aperture}
+          ] ] ]
       ] ]
     ] ];
     foreach my $event (@{$rspace_was->aperture}) {