有人能告诉我为什么第一块TCL不能编译而第二块呢？

Question

代码如下.单独运行,顶部不会以任何方式编译,但底部段编译正常.

proc printbobs  {times {textd "cream corn"}} {
    for {set r 0} {$r<$times} {incr r}{
        puts $textd
    }
    return $times
}
printbobs 2 

proc printText {times2 {textp "hello word"}} {
    for {set i 0} {$i<$times2} {incr i} {
        puts $textp
    }
    return $times2
}
printText 2

Answer 1

程序的第二行之间{incr r}和之间缺少空格{.