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 | e85f9c931bc38d4fdb4b9c6f249f1615f21c2ea5 (patch) | |
| tree | 70afaa6ed64e2f8757758313855ac610c22f5f50 | |
| parent | 3fd909333fb6cd9d5b5646cee46979fd77d418a8 (diff) | |
| parent | 8ebd29e2280262e39756310662305a4f767d860b (diff) | |
| download | tcl-e85f9c931bc38d4fdb4b9c6f249f1615f21c2ea5.zip tcl-e85f9c931bc38d4fdb4b9c6f249f1615f21c2ea5.tar.gz tcl-e85f9c931bc38d4fdb4b9c6f249f1615f21c2ea5.tar.bz2 | |
Fix [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]] |