From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 16 Mar 2018 20:24:36 +0000 (-0700)
Subject: devops: Include failed query in timeout error.
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=991a54a1ad08730200fa42e82ed7524422ec51a4;p=mit-scheme.git

devops: Include failed query in timeout error.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index b8737ad72..f1c9670ea 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -540,7 +540,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (flush-output-port i/o)
   (let ((object (read-until reply-wait i/o)))
     (if (eq? object 'timeout)
-	(error "Timeout awaiting reply."))
+	(error "Timeout awaiting reply:" query))
     object))
 
 (define (write-host-status host srcs)