From 9650cdc12468e91cb7a64aad6017671b7a40c1ef Mon Sep 17 00:00:00 2001
From: "Q. Zero Lee" <qzerolee@hotmail.com>
Date: Tue, 25 Aug 2015 22:41:22 +0800
Subject: Added a dollar

---
 tcl.html.markdown | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tcl.html.markdown')

diff --git a/tcl.html.markdown b/tcl.html.markdown
index 79b5e87d..c1cd42ca 100644
--- a/tcl.html.markdown
+++ b/tcl.html.markdown
@@ -257,7 +257,7 @@ proc greet greeting\ name return\ \"Hello,\ \$name!
 proc fold {cmd args} {
     set res 0
     foreach arg $args {
-        set res [cmd $res $arg]
+        set res [$cmd $res $arg]
     }
 }
 fold ::tcl::mathop::* 5 3 3 ;# ->  45
-- 
cgit v1.2.3