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 /library | |
| 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.
Diffstat (limited to 'library')
| -rw-r--r-- | library/history.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 -- |