有人能告诉我为什么第一块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}和{之间缺少空格。