X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FInvokeNextPredicate.pm;h=dc9aab1109b720f04fa73a90b9cdcf8be9d8b9da;hb=c75a680322d940332ec3d2c0a1c9454e3447b2c4;hp=3e969e9eeb1cf83810e317c6026f90666c0751cd;hpb=f696251fa8f0d2648e89a3ab46c676593a9a1798;p=scpubgit%2FDX.git

diff --git a/lib/DX/Step/InvokeNextPredicate.pm b/lib/DX/Step/InvokeNextPredicate.pm
index 3e969e9..dc9aab1 100644
--- a/lib/DX/Step/InvokeNextPredicate.pm
+++ b/lib/DX/Step/InvokeNextPredicate.pm
@@ -9,7 +9,10 @@ has proposition => (is => 'ro', required => 1);
 sub apply_to {
   my ($self, $ss) = @_;
   my $hyp = $ss->current_hypothesis;
-  return (undef, $self->proposition->resolve_for($hyp->scope));
+  if (my $step = $self->proposition->resolve_for($hyp->scope)) {
+    return $ss->but(next_step => $step);
+  }
+  return undef;
 }
 
 1;