add args handling to eval

partcl · Nov 29, 2009 · 750eea8 · 750eea8
1 parent 3b259e5
commit 750eea8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -88,6 +88,9 @@ INIT {
 
 
 our sub eval(*@args) {
+    if +@args < 1 {
+        error('wrong # args: should be "eval arg ?arg ...?"');
+    }
     my $code := concat(|@args);
     our %EVALCACHE;
     my &sub := %EVALCACHE{$code};