From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 14 Sep 2017 22:27:54 +0000 (-0700)
Subject: devops: Prefer newer(?) repo version of src/devops/build.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~63
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e8f35c23fb53136f0134a6dfaa400f05e1ff8969;p=mit-scheme.git

devops: Prefer newer(?) repo version of src/devops/build.scm.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 42c452088..4c75d7f16 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -514,12 +514,12 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	   (log "    Working...\n")))))
 
 (define (start-builds host i/o)
-  (write-file (let ((sys (system-library-pathname "devops/build.scm" #f)))
-		(if (file-exists? sys)
-		    sys
-		    (let ((repo "src/devops/build.scm"))
-		      (if (file-exists? repo)
-			  repo
+  (write-file (let ((repo "src/devops/build.scm"))
+		(if (file-exists? repo)
+		    repo
+		    (let ((sys (system-library-pathname "devops/build.scm" #f)))
+		      (if (file-exists? sys)
+			  sys
 			  (error "could not find build script")))))
 	      i/o)