new tclX-based startup

diff --git a/blight-startup.tcl b/blight-startup.tcl
new file mode 100755 (executable)
index 0000000..c2a2436
--- /dev/null
+++ b/blight-startup.tcl
@@ -0,0 +1,6 @@
+#!/usr/bin/tcl -f
+source blight.tcl
+set tcl_prompt1 { puts -nonewline "% " }
+set tcl_prompt2 { puts -nonewline "> " }
+commandloop -async -interactive on
+mainloop

diff --git a/startup.sh b/startup.sh
index 88d12008e40417ddcae1156e18d979d45633f27c..42a3eb877ec7ea01f34e57675d744a1b4478eece 100755 (executable)
--- a/startup.sh
+++ b/startup.sh
@@ -3,5 +3,5 @@ set -e
 cd "`dirname $0`"
 sleep 1
 set +e
-HOME=. tclsh8.2
+./blight-startup.tcl
 sleep ${1:-5000000}