projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c4ba925
)
devops/devops.scm: Load config files into (devops).
author
Matt Birkholz
<matt@birchwood-abbey.net>
Mon, 19 Mar 2018 18:34:19 +0000
(11:34 -0700)
committer
Matt Birkholz
<matt@birchwood-abbey.net>
Mon, 19 Mar 2018 18:34:19 +0000
(11:34 -0700)
src/devops/devops.scm
patch
|
blob
|
history
diff --git
a/src/devops/devops.scm
b/src/devops/devops.scm
index 37938cc9838767b1be0d0cf9d386f4c2ffce1414..f4f9ae06a08a63900f268af7ba1a29db9e0c7a14 100644
(file)
--- 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"))))