tcl: classic programs — for-each-line, assert, with-temp-var (+3 tests, 228 total)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

lib/tcl/tests/programs/with-temp-var.tcl

@@ -0,0 +1,13 @@
+proc with-temp-var {varname tempval body} {
+    upvar 1 $varname v
+    set saved $v
+    set v $tempval
+    uplevel 1 $body
+    set v $saved
+}
+
+set x 100
+with-temp-var x 999 {
+    set captured $x
+}
+list $x $captured