Posted to tcl by frerich at Tue Apr 26 09:39:23 GMT 2016view raw

  1. proc p {x} {
  2. proc q {} "
  3. return $x
  4. "
  5.  
  6. # 'can't read "q": no such variable'
  7. # return $q
  8.  
  9. return [list q]
  10. }
  11.  
  12. # Would like this to work:
  13. # puts [p 3]
  14. puts [[p 3]]