diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 15:15:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 15:15:46 (GMT) |
| commit | 67acc8945524908e6b8e9e1f8b1f949d3a146e11 (patch) | |
| tree | ce07568e15418586794d34eedbaa04e6f1db2dc9 /library/init.tcl | |
| parent | 573f9fd80810dede88587f8ec61fb5cbb4a100b8 (diff) | |
| download | tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.zip tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.gz tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.bz2 | |
Whitespace reduction in Tcl scripts. No functional change.
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 05ac4a3..9bb28e9 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -12,7 +12,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# This test intentionally written in pre-7.5 Tcl +# This test intentionally written in pre-7.5 Tcl if {[info commands package] == ""} { error "version mismatch: library\nscripts expect Tcl version 7.5b1 or later but the loaded version is\nonly [info patchlevel]" } @@ -332,7 +332,7 @@ proc unknown args { } } - if {([info level] == 1) && ([info script] eq "") + if {([info level] == 1) && ([info script] eq "") && [info exists tcl_interactive] && $tcl_interactive} { if {![info exists auto_noexec]} { set new [auto_execok $name] |