From 9dc018bb1eac41d00478d31372b2e52a84a649d7 Mon Sep 17 00:00:00 2001
From: Will Coleda <will@coleda.com>
Date: Sun, 29 Nov 2009 23:18:59 -0500
Subject: [PATCH] add args handling to [for]

---
 src/PmTcl/Commands.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
index b8a4a2f..6644131 100644
--- 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);