From fe1ea5b96474fb63735e599469dbd61d253b1f4f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 14 Feb 2018 09:29:19 +0100
Subject: [PATCH] Simplify build of FAIL.

No need to write a BIN file; just exit to DDT.
---
 build/build.tcl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index 18e65819..e3f14f9b 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -1092,15 +1092,14 @@ respond "*" "\032:kill\r"
 # fail
 respond "*" ":fail sail;fail rel_sail;fail >\r"
 respond "*" "\032:kill\r"
+respond "*" ":delete sail; fail bin\r"
 respond "*" ":stink\r"
 respond "\n" "m sail;jobdat rel\033l\033\033"
 respond "\n" "m sail;stktrn rel\033l\033\033"
 respond "\n" "m sail;fail rel\033l\033\033"
-respond "\n" "m sail;fail bin\033y\033\033"
-expect ":KILL"
-respond "*" ":job fail\r"
-respond "*" ":load sail;fail bin\r"
-respond "*" "\033\0331l decsys;decbot bin\r"
+respond "\n" "jfail\033\033"
+respond "\n" "d\033\033"
+respond "\n" "\033\0331l decsys;decbot bin\r"
 respond "*" ".jbsa/strt\r"
 respond "'" "\033y sys;ts fail\r"
 respond "*" ":kill\r"