add args-handling to [llength]

partcl · Nov 28, 2009 · 6ebafe5 · 6ebafe5
1 parent 3f3c9a4
commit 6ebafe5
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -162,9 +162,12 @@ our sub lindex($list, $pos) {
     return @list[$pos];
 }
 
-our sub llength($list) {
+our sub llength(*@args) {
+    if +@args != 1 {
+        error('wrong # args: should be "llength list"')
+    }
     my @list :=
-        PmTcl::Grammar.parse($list, :rule<list>, :actions(PmTcl::Actions) ).ast;
+        PmTcl::Grammar.parse(@args[0], :rule<list>, :actions(PmTcl::Actions) ).ast;
 
     return +@list;
 }