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

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index f4f9ae06a08a63900f268af7ba1a29db9e0c7a14..7b36ec3cc610224c1fe6e6c9c91e3917e56da938 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -34,7 +34,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
          (else (error "Unknown developer operation:" cmdl)))))
 
 (define (devops:status #!optional name)
-  (load "devops/config.scm" (->environment '(devops)))
+  (load "devops/config.scm" '(devops))
   (cond ((default-object? name)
         (status))
        ((string=? "core" name)
@@ -383,7 +383,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
   tag-create-options)
 
 (define (devops:release #!optional plugin)
-  (load "devops/config.scm")
+  (load "devops/config.scm" '(devops))
   (let ((dirt (shell-lines "git status --porcelain --untracked-files=no")))
     (cond ((default-object? plugin)
           (release-core (get-core-version) (get-core-changes) dirt #f))
@@ -520,7 +520,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 ;;;; Build
 
 (define (devops:build #!optional hostname)
-  (load "devops/config.scm")
+  (load "devops/config.scm" '(devops))
   (let ((srcs (available-sources "devops"))
        (hosts (hosts)))
     (if (null? hosts)