Tcl Source Code

Artifact c6dc7db533a170f1bfeb3c6d7f0112668713dd9b:

oo::class create Tuple {
    method fixup {} {
	if {[incr ::count] == 1} {
	    my foo
	}
    }

    method foo {} {
	# comment the next line to avoid the crash
	my fixup
	puts stderr [info frame -1]
    }
}

set count 0
[Tuple new] fixup