From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 4 Jul 2019 03:29:01 +0000 (-0700)
Subject: devops: Tolerate make check failures.
X-Git-Tag: mit-scheme-pucked-devops-0.12~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=141c9fb71c7518712be67fdf06a6c7e843eccc18;p=mit-scheme.git

devops: Tolerate make check failures.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index b6b25ae7d..154996276 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -855,7 +855,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
     (trun "cd src/ && make tags")
     (trun "cd src/ && make all")
     (lndir "../tests")
-    (trun "cd src/ && make check")
+    (trun-noerror "cd src/ && make check")
     (trun "cd src/ && umask 022 && make install")
 
     (let ((plugin-errors
@@ -991,6 +991,13 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   (log "# "(emacs-friendly-timestamp)"\n")
   (apply run strings))
 
+(define (trun-noerror . strings)
+  (log "# "(emacs-friendly-timestamp)"\n")
+  (let* ((cmdln (string* strings))
+	 (status (run-noerror cmdln)))
+    (if (not (zero? status))
+	(warn "Shell command failed:" status cmdln))))
+
 (define (emacs-friendly-timestamp)
   (let ((dt (local-decoded-time)))
     (define (pad num) (string-pad-left (number->string num) 2 #\0))