diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 13:32:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 13:32:03 (GMT) |
| commit | 8ebd29e2280262e39756310662305a4f767d860b (patch) | |
| tree | 7e637447ecbb87acfd708c7379f78eae1e82da18 | |
| parent | 99d15a9f02237d7d7bef2aa5efde9981a2d2fd52 (diff) | |
| download | tcl-8ebd29e2280262e39756310662305a4f767d860b.zip tcl-8ebd29e2280262e39756310662305a4f767d860b.tar.gz tcl-8ebd29e2280262e39756310662305a4f767d860b.tar.bz2 | |
Proposed fix for [8e666d7c95]: Redefining proc ::history locks the interpreter into a tight loop
| -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]] |