我是 TCL 新手，正在尝试设置一个简单的递归循环。我的代码一直运行到递归完成为止，然后它开始抛出错误。这是我的代码：
set testNum 0
proc raiseTest { a } {
puts $a
if { $a == 5 } {
puts "Done!"
} elseif { $a != 5 } {
incr a
puts "Going!"
[raiseTest $a]
}
}
[ raiseTest $testNum ]
一旦 proc 达到 5 并完成最后一个循环，我就会遇到无效的命令名“”错误，然后是大量从内部调用的错误，我不知道为什么。有人可以帮我吗？