Anonymous user
Create an object/Native demonstration: Difference between revisions
→{{header|Tcl}}: removed redundant backup variable
(→{{header|zkl}}: added Tcl) |
(→{{header|Tcl}}: removed redundant backup variable) |
||
Line 765:
<lang Tcl>proc protect _var {
upvar 1 $_var var
▲ trace add variable var {write unset} [list protect0 $backup]
}
proc protect0 {backup name1 name2 op} {
| |||