Added a dollar

This commit is contained in:
Q. Zero Lee 2015-08-25 22:41:22 +08:00
parent b7f18b1cc2
commit 9650cdc124

View File

@ -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