Posted to tcl by aspect at Wed Mar 11 03:55:53 GMT 2015view pretty

package require lambda 
proc finally {script} {
    set v [lindex [uplevel 1 {info locals}] 0]
    puts "binding to $v"
    tailcall trace add variable $v unset [lambda args $script]
}


proc test {div} {
    set x 1.0
    finally {puts "returning"}
    puts "doing stuff"
}