sstephenson

#!/usr/bin/env TEST=1 tclsh
# Lexical scoping in Tcl

proc let {block args} {
  try {
    set captured_vars [uplevel [list capture [block args]]]
    set all_var_names [uplevel {info vars}]
    
    foreach var [block args] value $args {
      uplevel [list catch [list unset $var]]