Posted to tcl by kyak at Thu Nov 08 17:17:57 GMT 2018view raw

  1. proc loop {} {
  2. #do things
  3. after 2000
  4. tailcall loop
  5. }
  6.  
  7. loop
  8. vwait forever
  9.