Sou novo no TCL e estou tentando configurar um loop de recursão simples. O código que tenho funciona até a recursão terminar e então começa a gerar erros. Este é o meu código:
set testNum 0
proc raiseTest { a } {
puts $a
if { $a == 5 } {
puts "Done!"
} elseif { $a != 5 } {
incr a
puts "Going!"
[raiseTest $a]
}
}
[ raiseTest $testNum ]
Quando o proc chega a 5 e termina seu último loop, recebo um erro de nome de comando inválido "" seguido por uma tonelada de erros invocados de dentro e não tenho ideia do porquê. Alguém pode me ajudar?