Check-in [8f042afa7a]

Not logged in

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

Overview
Comment:Fix varname typo in trace code.
Timelines: family | ancestors | descendants | both | doc-templating
Files: files | file ages | folders
SHA1:8f042afa7aadb3b730a115041aebd635f4b8dd74
User & Date: andreask 2013-11-14 20:40:30
Context
2013-12-03
06:32
Fixed path generation for critcl install, need relative paths. Leaf check-in: 1a3416824e user: aku tags: doc-templating
2013-11-14
20:40
Fix varname typo in trace code. check-in: 8f042afa7a user: andreask tags: doc-templating
2013-10-21
20:17
Trunk merge ... The bugfix in trunk we merge is actually essentially a backport of a change we made here on the branch first. Not making the backport was the bug. check-in: 14e88e163e user: andreask tags: doc-templating
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to path.tcl.

213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
	    continue
	}
	if {[llength [rgrep {package\s+require\s+critcl} $contents]]} {
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

	io trace {    Accepted: $pn $pv @ $relativesrc}

	lappend   files $relative
	ListOwned files $contents

	# For 'scan'.
	kettle option set @predicate [list $files $pn $pv]
	return 1







|







213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
	    continue
	}
	if {[llength [rgrep {package\s+require\s+critcl} $contents]]} {
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

	io trace {    Accepted: $pn $pv @ $relative}

	lappend   files $relative
	ListOwned files $contents

	# For 'scan'.
	kettle option set @predicate [list $files $pn $pv]
	return 1