Use the default system Tcl.

[ircbot] / blight-startup.tcl

diff --git a/blight-startup.tcl b/blight-startup.tcl
index c2a2436379324f63ee2f5255d3d71432dc205fef..4c572bac60ff1c2db2fdfc3eed978575ccbe1038 100755 (executable)
--- a/blight-startup.tcl
+++ b/blight-startup.tcl
@@ -1,5 +1,12 @@
-#!/usr/bin/tcl -f
-source blight.tcl
+#!/usr/bin/tclsh
+package require Tclx
+if {[llength $argv] > 0} {
+  set script [lindex $argv 0]
+  set argv [lrange $argv 1 end]
+} else {
+  set script blight.tcl
+}
+source $script.tcl
 set tcl_prompt1 { puts -nonewline "% " }
 set tcl_prompt2 { puts -nonewline "> " }
 commandloop -async -interactive on