xinit.c: test for tcl_interactive existence before testing value

This commit is contained in:
stefan schippers 2024-05-02 17:33:43 +02:00
parent c7bf1300c1
commit c544c5bd6e
1 changed files with 1 additions and 1 deletions

View File

@ -3004,7 +3004,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
if(tclgetboolvar("use_tclreadline") && !cli_opt_detach && !cli_opt_no_readline) {
tcleval( "if {![catch {package require tclreadline}] && $tcl_interactive} "
tcleval( "if {![catch {package require tclreadline}] && [info exists tcl_interactive] && $tcl_interactive} "
"{"
"::tclreadline::readline builtincompleter 0; "
"::tclreadline::readline customcompleter completer; "