acion infrastructure

[scpubgit/DKit.git] / lib / DX / Solver.pm

diff --git a/lib/DX/Solver.pm b/lib/DX/Solver.pm
index 51fcdbe..e94e050 100644 (file)
--- a/lib/DX/Solver.pm
+++ b/lib/DX/Solver.pm
@@ -18,8 +18,7 @@ sub query {
   my ($self, $vars, @terms) = @_;
   my $rule_set = $self->rule_set;
   push @terms, map +[ materialize => $_ ], @$vars;
-  my $head = reduce { $b->but(next => $a) }
-               reverse map $rule_set->expand(@$_), @terms;
+  my $head = $rule_set->expand_and_link(undef, @terms);
   my $state = DX::State->new(
     next_op => $head,
     return_stack => [],