From 6ebafe50154fb4fe87801f97567aba4dcee95f0b Mon Sep 17 00:00:00 2001
From: Will Coleda <will@coleda.com>
Date: Sat, 28 Nov 2009 16:07:15 -0500
Subject: [PATCH] add args-handling to [llength]

---
 src/PmTcl/Commands.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
index 990e777..938899b 100644
--- 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;
 }