Posted to tcl by de at Thu Nov 23 01:05:54 GMT 2017view raw

  1. proc gencode {nr} {
  2. set code ""
  3. for {set i 0} {$i < $nr} {incr i} {
  4. append code "catch \{"
  5. }
  6. append code "set a foo"
  7. for {set i 0} {$i < $nr} {incr i} {
  8. append code "\}"
  9. }
  10. return $code
  11. }
  12.  
  13. puts [eval [gencode 100]]
  14. puts [eval [gencode 1000]]
  15. puts [eval [gencode 10000]]
  16.  

Comments

Posted by dgp at Tue Nov 28 05:56:30 GMT 2017 [text] [code]

fossil bisect points blame at bf171b6b510ab59b