Posted to tcl by karl at Mon Aug 10 15:35:29 GMT 2015view raw

  1. package require tsp
  2.  
  3. ::tsp::proc foo {i s} {
  4. #::tsp::procdef int -args int string
  5. #tsp::compile assert
  6.  
  7. set i 10000
  8. set j $i
  9. return $i
  10. }
  11.  
  12. puts [foo 5 4]