diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 13:03:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-07 13:03:29 (GMT) |
| commit | c56e4b58dd3c4b6b5372402174291c31af82726c (patch) | |
| tree | 70afaa6ed64e2f8757758313855ac610c22f5f50 /library | |
| parent | 8002bc99dc916eced8afb104ba1a7657f20297ea (diff) | |
| parent | b857025dfeb559cde2aefb7ba7b4a3564b897953 (diff) | |
| download | tcl-c56e4b58dd3c4b6b5372402174291c31af82726c.zip tcl-c56e4b58dd3c4b6b5372402174291c31af82726c.tar.gz tcl-c56e4b58dd3c4b6b5372402174291c31af82726c.tar.bz2 | |
Fix [8e666d7c95]: Redefining proc ::history locks the interpreter into a tight loop
Diffstat (limited to 'library')
| -rw-r--r-- | library/history.tcl | 2 | ||||
| -rw-r--r-- | library/tclIndex | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/library/history.tcl b/library/history.tcl index 8505c10..f06ffc9 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 {arglist {tailcall history {*}$arglist} ::tcl} $args + tailcall apply {arglist {tailcall ::tcl::history {*}$arglist} ::tcl} $args } # (unnamed) -- diff --git a/library/tclIndex b/library/tclIndex index 0409d9b..a186a7d 100644 --- a/library/tclIndex +++ b/library/tclIndex @@ -20,6 +20,7 @@ set auto_index(::auto_mkindex_parser::command) [list source [file join $dir auto set auto_index(::auto_mkindex_parser::commandInit) [list source [file join $dir auto.tcl]] set auto_index(::auto_mkindex_parser::fullname) [list source [file join $dir auto.tcl]] set auto_index(history) [list source [file join $dir history.tcl]] +set auto_index(::tcl::history) [list source [file join $dir history.tcl]] set auto_index(::tcl::HistAdd) [list source [file join $dir history.tcl]] set auto_index(::tcl::HistKeep) [list source [file join $dir history.tcl]] set auto_index(::tcl::HistClear) [list source [file join $dir history.tcl]] |