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 | fbd5f30b987a5c5cf9faaed4b1339fdaad4bd1f7 (patch) | |
| tree | f6dbc816eb8a6ffa55dd858f2ea4d9d93dc4dbeb /library/history.tcl | |
| parent | addaae356a31a5a053c8d8f3ca2377c9b7673f50 (diff) | |
| download | tcl-fbd5f30b987a5c5cf9faaed4b1339fdaad4bd1f7.zip tcl-fbd5f30b987a5c5cf9faaed4b1339fdaad4bd1f7.tar.gz tcl-fbd5f30b987a5c5cf9faaed4b1339fdaad4bd1f7.tar.bz2 | |
* library/history.tcl (history): Simplify the dance of variable
management used when chaining to the implementation command.
Diffstat (limited to 'library/history.tcl')
| -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 -- |