diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-10-11 09:41:35 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-10-15 08:22:22 +1000 |
commit | 28442e31d396752efa039fee7c2d805ba3a3d92c (patch) | |
tree | 15e4d45a4041ac7df719037e401057cf351cf9c9 /initjimsh.tcl | |
parent | dd69879b70a1fd4d9665e329f24d50327b21171d (diff) | |
download | jimtcl-28442e31d396752efa039fee7c2d805ba3a3d92c.zip jimtcl-28442e31d396752efa039fee7c2d805ba3a3d92c.tar.gz jimtcl-28442e31d396752efa039fee7c2d805ba3a3d92c.tar.bz2 |
jimsh: change order of default $auto_path
Add directory containing jimsh before JIM_LIBPATH
Helps with running uninstalled jimsh
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'initjimsh.tcl')
-rw-r--r-- | initjimsh.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/initjimsh.tcl b/initjimsh.tcl index a764f3a..9ce9053 100644 --- a/initjimsh.tcl +++ b/initjimsh.tcl @@ -6,8 +6,8 @@ proc _jimsh_init {} { # Add to the standard auto_path lappend p {*}[split [env JIMLIB {}] $::tcl_platform(pathSeparator)] - lappend p {*}$::auto_path lappend p [file dirname [info nameofexecutable]] + lappend p {*}$::auto_path set ::auto_path $p if {$::tcl_interactive && [env HOME {}] ne ""} { |