diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-11-25 11:55:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-11-25 11:55:35 (GMT) |
| commit | 3768c5cbb266c4eb7bcbc8c9f466c546a8e41dff (patch) | |
| tree | f6dbc816eb8a6ffa55dd858f2ea4d9d93dc4dbeb | |
| parent | c5a1e89cc8d9f34ca57886a2527f484ed21e3902 (diff) | |
| download | tcl-3768c5cbb266c4eb7bcbc8c9f466c546a8e41dff.zip tcl-3768c5cbb266c4eb7bcbc8c9f466c546a8e41dff.tar.gz tcl-3768c5cbb266c4eb7bcbc8c9f466c546a8e41dff.tar.bz2 | |
* library/history.tcl (history): Simplify the dance of variable
management used when chaining to the implementation command.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/history.tcl | 2 |
2 files changed, 6 insertions, 1 deletions
@@ -1,3 +1,8 @@ +2011-11-25 Donal K. Fellows <dkf@users.sf.net> + + * library/history.tcl (history): Simplify the dance of variable + management used when chaining to the implementation command. + 2011-11-22 Donal K. Fellows <dkf@users.sf.net> * generic/tclExecute.c (TclCompileObj): Simplify and de-indent the diff --git a/library/history.tcl b/library/history.tcl index fb722c8..51d2404 100644 --- a/library/history.tcl +++ b/library/history.tcl @@ -53,7 +53,7 @@ proc ::history {args} { } # Tricky stuff needed to make stack and errors come out right! - tailcall apply {args {tailcall history {*}$args} ::tcl} {*}$args + tailcall apply {arglist {tailcall history {*}$arglist} ::tcl} $args } # tcl::HistAdd -- |