more tweaks

diff --git a/e.pl b/e.pl
index be16d97..e429647 100644 (file)
--- 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) = @_;