add args handling to [append]

partcl · Nov 29, 2009 · 3b259e5 · 3b259e5
1 parent db66abf
commit 3b259e5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -1,5 +1,11 @@
 
-our sub append($var, *@args) {
+our sub append(*@args) {
+    if +@args < 1 {
+        error('wrong # args: should be "append varName ?value value ...?"');
+    }
+
+    my $var := @args.shift;
+
     my $lexpad := pir::find_dynamic_lex__Ps('%LEXPAD');
 
     my $result := $lexpad{$var};