@@ -13,21 +13,21 @@ namespace export Init } proc ::tclreadline::Init {} { uplevel #0 { - if ![info exists tclreadline::library] { - if [catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg] { - puts stderr $msg - exit 2 + if {![info exists tclreadline::library]} { + if {[catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg]} { + puts stderr $msg + exit 2 + } } - } } } tclreadline::Init ::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter source [file join [file dirname [info script]] tclreadlineSetup.tcl] set auto_index(::tclreadline::ScriptCompleter) \ -[list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]] + [list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]]