Posted to tcl by karl at Mon Aug 10 15:35:29 GMT 2015view pretty
package require tsp
::tsp::proc foo {i s} {
#::tsp::procdef int -args int string
#tsp::compile assert
set i 10000
set j $i
return $i
}
puts [foo 5 4]
package require tsp
::tsp::proc foo {i s} {
#::tsp::procdef int -args int string
#tsp::compile assert
set i 10000
set j $i
return $i
}
puts [foo 5 4]