From 64b0ea3025958593031d0426dbe552b4e03ca41b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 22 May 2018 08:01:56 +0200
Subject: [PATCH] Move programs from build.tcl to proper places.

---
 build/build.tcl | 12 ++----------
 build/lisp.tcl  |  3 +++
 build/misc.tcl  |  4 ++++
 3 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index cf247664..510326af 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -120,18 +120,10 @@ if {$env(BASICS)!="yes"} {
     source $build/misc.tcl
     source $build/lisp.tcl
     source $build/scheme.tcl
+    source $build/muddle.tcl
+    source $build/sail.tcl
 }
 
-source $build/muddle.tcl
-source $build/sail.tcl
-
-respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
-expect ":KILL"
-
-respond "*" ":midas sysbin;_sra; gcmail\r"
-expect ":KILL"
-respond "*" ":link dragon; hourly gcmail,sysbin; gcmail bin\r"
-
 bootable_tapes
 
 # make output.tape
diff --git a/build/lisp.tcl b/build/lisp.tcl
index 62df73aa..5aa5e343 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -103,6 +103,9 @@ expect ":KILL"
 
 respond "*" ":link sys1;ts lookup,inquir;ts lookup\r"
 
+respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
+expect ":KILL"
+
 respond "*" ":print cstacy;..new. (udir)\r"
 type ":vk\r"
 
diff --git a/build/misc.tcl b/build/misc.tcl
index 6674cc9c..a37ac337 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -138,6 +138,10 @@ respond "*" ":link channa;rakash cnavrl,.mail.;comsat launch\r"
 respond "*" ":link channa;ts cnavrl,channa;rakash cnavrl\r"
 respond "*" ":link dragon;hourly cnavrl,.mail.;comsat launch\r"
 
+respond "*" ":midas sysbin;_sra; gcmail\r"
+expect ":KILL"
+respond "*" ":link dragon; hourly gcmail,sysbin; gcmail bin\r"
+
 respond "*" ":midas sysbin;qmail_ksc;qmail\r"
 respond "PWORD version (Y or N)? " "N\r"
 expect ":KILL"