From 285b72121dcde21ca3236d327cdb53b3d76d22c7 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 build script files.

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

diff --git a/build/build.tcl b/build/build.tcl
index 705d88b2..071851b9 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -131,13 +131,6 @@ if {$env(BASICS)!="yes"} {
 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 17f12065..8bd46db3 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 070b2d21..8f381fa8 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"