1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
fubar
while executing
"error fubar"
invoked from within
"if {[string equal $n "b"]} {
lappend t .
error fubar
}"
("WalkCall" body line 2)
invoked from within
"WalkCall $avar $nvar $name $node "enter" $script"
(procedure "::struct::tree::_walk" line 88)
invoked from within
"::struct::tree::_walk ::mytree root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
("_walk" body line 1)
invoked from within
"mytree walk root {a n} {
if {[string equal $n "b"]} {
lappend t .
error fubar
}
lappend t $a $n
}"
(procedure "foo" line 7)
invoked from within
"foo"
|
