From 1ad4855215de04284ff084110bdb3be5a8af98ee Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 5 Feb 2017 15:50:18 +0100
Subject: [PATCH] Define 'abort' which is called on timeout.

---
 build/build.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/build/build.tcl b/build/build.tcl
index 1288c441..85b1624b 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -1,3 +1,9 @@
+proc abort {} {
+    puts ""
+    puts "The last command timed out."
+    exit 1
+}
+
 proc type s {
     sleep .1
     foreach c [split $s ""] {