eliminate variable name requirement from query()

[scpubgit/DKit.git] / bin / dx-shell

diff --git a/bin/dx-shell b/bin/dx-shell
index 6848ed6..1865982 100644 (file)
--- 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, [