X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=e.pl;fp=e.pl;h=e429647b07653fbce694eb65fda638393f166c28;hb=18ca8b57ff86a91709ee98eb7bfc47851d86f529;hp=be16d97ae8aa9d4f30cd9ee06022fc22e1428142;hpb=af31cae2ada7c4f429dcf8816904111837f43fcf;p=dbsrgits%2FSQL-Abstract.git

diff --git a/e.pl b/e.pl
index be16d97..e429647 100644
--- a/e.pl
+++ b/e.pl
@@ -66,9 +66,12 @@ sub _aliasify {
 
 sub expr (&) { _run_e(@_) }
 sub _do {
-  my ($name, $code, @in) = @_;
-  warn "eek: ${\dump @in}" if @in > 1;
-  [ $name, _run_e($code), @in ];
+  return [ @_ ] unless @_ > 2; # FOO { ... }<nothing or ,>
+  my $name = shift;
+  my $code = shift;
+  my $ret = [ $name, _run_e($code), shift ];
+  return $ret unless @_;
+  die "WHUT";
 }
 sub _dolist {
   my ($name, $code, @in) = @_;