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

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

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index f4f9ae06a..7b36ec3cc 100644
--- 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)