Artifact
377f32d92ce4b6264af5f91f51bffef48727920d:
Attachment "test" to
ticket [1786481fff]
added by
msofer
2007-09-11 21:55:12.
proc history args {}
proc test {} {
set a {b c}
set x [dict update a b bb {
set bb 1
}]
}
proc test0 {} {
set x [set y 1]
}
set tcl_traceExec 3
# [test0] produces the correct levels, as reference:
# ...
# 2: 1 (6) done => return code=0, result="1"
# ...
# [test] produces (pre-patch) wrong stack levels: note the '2'
# ...
# 2: 2 (xx) done => return code=0, result="1"
# ...