Tcl Source Code

Check-in [8d7fa1c1f0]
Login

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

Overview
Comment:
* library/history.tcl (history): Simplify the dance of variable management used when chaining to the implementation command.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8d7fa1c1f011fcd2d677e6d7b834e99555486dda
User & Date: dkf 2011-11-25 11:55:35
Context
2011-11-30
06:08
don't install tommath_(super)?class.h don't install directories like 8.2 and 8.3 check-in: 07e9a25b12 user: jan.nijtmans tags: trunk
2011-11-26
16:08
merge trunk check-in: ff15145ebd user: dkf tags: dkf-utf16-branch
16:06
merge trunk check-in: e54193b3cb user: dkf tags: dkf-notifier-poll
16:04
merge trunk check-in: 854afbcec5 user: dkf tags: dkf-alias-encoding
2011-11-25
11:55
* library/history.tcl (history): Simplify the dance of variable management used when chaining to t...
check-in: 8d7fa1c1f0 user: dkf tags: trunk
2011-11-22
13:07
Make some of the logic in TclCompileObj less heavily nested, to improve clarity. check-in: 94f63a92f9 user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2011-11-22  Donal K. Fellows  <[email protected]>

	* generic/tclExecute.c (TclCompileObj): Simplify and de-indent the
	logic so that it is easier to comprehend.

2011-11-22  Jan Nijtmans  <[email protected]>

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2011-11-25  Donal K. Fellows  <[email protected]>

	* library/history.tcl (history): Simplify the dance of variable
	management used when chaining to the implementation command.

2011-11-22  Donal K. Fellows  <[email protected]>

	* generic/tclExecute.c (TclCompileObj): Simplify and de-indent the
	logic so that it is easier to comprehend.

2011-11-22  Jan Nijtmans  <[email protected]>

Changes to library/history.tcl.

49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
    # given at all.

    if {![llength $args]} {
	set args info
    }

    # Tricky stuff needed to make stack and errors come out right!
    tailcall apply {args {tailcall history {*}$args} ::tcl} {*}$args
}

# tcl::HistAdd --
#
#	Add an item to the history, and optionally eval it at the global scope
#
# Parameters:







|







49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
    # given at all.

    if {![llength $args]} {
	set args info
    }

    # Tricky stuff needed to make stack and errors come out right!
    tailcall apply {arglist {tailcall history {*}$arglist} ::tcl} $args
}

# tcl::HistAdd --
#
#	Add an item to the history, and optionally eval it at the global scope
#
# Parameters: