From b31f054e6096861f57d2ed39f91c3086cc4042f7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 May 2009 21:16:16 +0000
Subject: [PATCH] new tclX-based startup

---
 blight-startup.tcl | 6 ++++++
 startup.sh         | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100755 blight-startup.tcl

diff --git a/blight-startup.tcl b/blight-startup.tcl
new file mode 100755
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 88d1200..42a3eb8 100755
--- 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}
-- 
2.11.0