devops/devops.scm: Load config files into (devops).
authorMatt Birkholz <matt@birchwood-abbey.net>
Mon, 19 Mar 2018 18:34:19 +0000 (11:34 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Mon, 19 Mar 2018 18:34:19 +0000 (11:34 -0700)
src/devops/devops.scm

index 37938cc9838767b1be0d0cf9d386f4c2ffce1414..f4f9ae06a08a63900f268af7ba1a29db9e0c7a14 100644 (file)
@@ -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"))))