Posted to tcl by colin at Wed May 19 14:11:39 GMT 2010view raw

  1. oo::class create Tuple {
  2. method f {f} {
  3. puts stderr "f $f"
  4. if {$f == 0} {
  5. my n 1
  6. }
  7. info frame -1
  8. puts moop
  9. }
  10.  
  11. method n {{n 0}} {
  12. puts stderr "n $n"
  13. my f $n
  14. #info frame -1
  15. }
  16. }
  17.  
  18. [Tuple new] n
  19.  
  20. tclsh test.tcl
  21. n 0
  22. f 0
  23. n 1
  24. f 1
  25. moop
  26. Segmentation fault