From e8f35c23fb53136f0134a6dfaa400f05e1ff8969 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 14 Sep 2017 15:27:54 -0700 Subject: [PATCH] devops: Prefer newer(?) repo version of src/devops/build.scm. --- src/devops/devops.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 2.25.1