cmdr
Check-in [374d694490]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix overwrite of outer loop variable.
Timelines: family | ancestors | descendants | both | neg-aliases
Files: files | file ages | folders
SHA1: 374d694490783d683c69337f4b43bc7966476fc8
User & Date: aku 2015-05-11 23:01:27
Context
2015-05-11
23:02
Fix the guard conditions for negative aliases. check-in: 4eaa72578e user: aku tags: neg-aliases
23:01
Fix overwrite of outer loop variable. check-in: 374d694490 user: aku tags: neg-aliases
22:28
Merged trunk testsuite fixes. check-in: 5ae1694710 user: aku tags: neg-aliases
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/support.tcl.

248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
	    if {[$c threshold] >= 0} {
		lappend result "        mode=threshold [$c threshold]"
	    } else {
		lappend result "        mode=peek+test"
	    }
	}
	lappend result "        flags \[[$c options]\]"
	foreach o [$c options] {
	    lappend result "            $o = [$c flag-type $o]"
	}
	lappend result "        ge ([$c generator])"
	lappend result "        va ([$c validator])"
	lappend result "        wd ([$c when-complete])"
	lappend result "    \}"
    }







|
|







248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
	    if {[$c threshold] >= 0} {
		lappend result "        mode=threshold [$c threshold]"
	    } else {
		lappend result "        mode=peek+test"
	    }
	}
	lappend result "        flags \[[$c options]\]"
	foreach oname [$c options] {
	    lappend result "            $oname = [$c flag-type $oname]"
	}
	lappend result "        ge ([$c generator])"
	lappend result "        va ([$c validator])"
	lappend result "        wd ([$c when-complete])"
	lappend result "    \}"
    }