From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 19 Mar 2018 18:34:19 +0000 (-0700)
Subject: devops/devops.scm: Load config files into (devops).
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4d0d78a270c5d3bd44ccc7a0ea68fcd8ee0af6a4;p=mit-scheme.git

devops/devops.scm: Load config files into (devops).
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 37938cc98..f4f9ae06a 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -868,13 +868,13 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 (define (load-make-config)
   (cond ((file-exists? "devops-config.scm")
-	 (load "devops-config.scm"))
+	 (load "devops-config.scm" '(devops)))
 	((file-exists? "../devops-config.scm")
-	 (load "../devops-config.scm"))
+	 (load "../devops-config.scm" '(devops)))
 	((let* ((git-root (find-git-root))
 		(file (string git-root"/devops-config.scm")))
 	   (and (file-exists? file)
-		(begin (load file)
+		(begin (load file '(devops))
 		       #t))))
 	(else
 	 (error "no devops test configuration found"))))