Posted to tcl by jima at Sun Dec 22 15:46:30 GMT 2013view raw
- namespace eval draft {
- proc p6 {} {
- return bar6
- }
- proc p5 {} {
- return -level 2 FOO
- }
- proc p4 {} {
- return bar4
- }
- proc p3 {} {
- return [p4][p5][p6]
- }
- proc p2 {} {
- p3
- }
- proc p1 {} {
- p2
- }
- proc p0 {} {
- p1
- }
- puts [p0]
- }
- namespace delete draft