X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FResolveProposition.pm;h=17df581ee7bb46ed962cc82795cc475b04980720;hb=df377b33658256c77066606f28d4fe4e3f5f974e;hp=e56b19ca4c50237b7fab6761363e0f29be67393e;hpb=38113b884bbffe33c7d694931d062e710fbb711c;p=scpubgit%2FDX.git diff --git a/lib/DX/Step/ResolveProposition.pm b/lib/DX/Step/ResolveProposition.pm index e56b19c..17df581 100644 --- a/lib/DX/Step/ResolveProposition.pm +++ b/lib/DX/Step/ResolveProposition.pm @@ -56,9 +56,9 @@ sub apply_to { my $ss = $old_ss->but( next_step => $ns, ($alt_step - ? (alternatives => [ + ? (adjustments_made => [ [ $self, $old_ss->current_hypothesis ], - @{$old_ss->alternatives} + @{$old_ss->adjustments_made} ]) : () ),