X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fdx-shell;fp=bin%2Fdx-shell;h=186598249f375a32859e4175f9064eb83b7f31df;hb=7d384ecaab6d7440b19924dd45040a01345b4392;hp=6848ed6dcf8a40b81a027f4fd2574a5cfc420024;hpb=a5c3a0416ea340dfaa9d9f83fa1a8bf9065766af;p=scpubgit%2FDKit.git

diff --git a/bin/dx-shell b/bin/dx-shell
index 6848ed6..1865982 100644
--- a/bin/dx-shell
+++ b/bin/dx-shell
@@ -47,8 +47,8 @@ sub expand_body {
 }
 
 $tcl->CreateCommand(query => sub {
-  my (undef, undef, undef, $vars, $body) = @_;
-  @last_q = expand_def($vars, $body);
+  my (undef, undef, undef, $body) = @_;
+  @last_q = expand_body($body);
   do_query();
   return;
 });
@@ -92,12 +92,6 @@ foreach my $rule (keys %{$solver->rule_set->rules}) {
   $tcl->CreateCommand($rule => $rule_sub);
 }
 
-$tcl->CreateCommand(exists => sub {
-  my (undef, undef, undef, $vars, $body) = @_;
-  push our @Body_Parts, [ exists => expand_def($vars, $body) ];
-  return;
-});
-
 $tcl->CreateCommand(foreach => sub {
   my (undef, undef, undef, $var, $body, $each_body) = @_;
   push our @Body_Parts, [