From 0e784263bcb230a86a2a3cac8ce7428f5573521e Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 6 Feb 2024 13:32:03 +0000 Subject: Proposed fix for [8e666d7c95]: Redefining proc ::history locks the interpreter into a tight loop --- library/history.tcl | 2 +- library/tclIndex | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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]] -- cgit v0.12