Posted to tcl by jima at Sun Dec 22 15:46:30 GMT 2013view raw

  1. namespace eval draft {
  2. proc p6 {} {
  3. return bar6
  4. }
  5. proc p5 {} {
  6. return -level 2 FOO
  7. }
  8. proc p4 {} {
  9. return bar4
  10. }
  11. proc p3 {} {
  12. return [p4][p5][p6]
  13. }
  14. proc p2 {} {
  15. p3
  16. }
  17. proc p1 {} {
  18. p2
  19. }
  20. proc p0 {} {
  21. p1
  22. }
  23. puts [p0]
  24. }
  25. namespace delete draft