add args handling to [for]

partcl · Nov 30, 2009 · 9dc018b · 9dc018b
1 parent 11e9695
commit 9dc018b
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -125,7 +125,15 @@ our sub expr(*@args) {
     &sub();
 }
 
-our sub for  ($init,$cond,$incr,$body) {
+our sub for(*@args) {
+    if +@args != 4 {
+        error('wrong # args: should be "for start test next command"');
+    }
+    my $init := @args[0];
+    my $cond := @args[1];
+    my $incr := @args[2];
+    my $body := @args[3];
+
     eval($init);
     while expr($cond) {
         eval($body);