From f8b321f8c05a96e59985ae869dbd5eee31e6d66b Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 19 Mar 2018 15:18:08 -0700 Subject: [PATCH] devops/devops.scm: Load ALL config files into (devops). --- src/devops/devops.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1