[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/08: packages: Export 'scheme-modules'.
From: |
Ludovic Courtès |
Subject: |
04/08: packages: Export 'scheme-modules'. |
Date: |
Mon, 20 Jun 2016 21:51:01 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 2a6ba870867e31a32faca0dbf0e062bf9f5c0d78
Author: Ludovic Courtès <address@hidden>
Date: Mon Jun 20 22:30:16 2016 +0200
packages: Export 'scheme-modules'.
* gnu/packages.scm (package-modules): Rename to...
(scheme-modules): ... this. Export. Update callers.
---
gnu/packages.scm | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 7130f58..9496a27 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -45,6 +45,7 @@
%package-module-path
fold-packages
+ scheme-modules ;XXX: for lack of a better place
find-packages-by-name
find-best-packages-by-name
@@ -158,8 +159,8 @@ returned list is sorted in alphabetical order."
(map string->symbol
(string-tokenize (string-drop-right file 4) not-slash)))))
-(define* (package-modules directory #:optional sub-directory)
- "Return the list of modules that provide packages for the distribution.
+(define* (scheme-modules directory #:optional sub-directory)
+ "Return the list of Scheme modules available under DIRECTORY.
Optionally, narrow the search to SUB-DIRECTORY."
(define prefix-len
(string-length directory))
@@ -184,9 +185,9 @@ search."
(fold-right (lambda (spec result)
(match spec
((? string? directory)
- (append (package-modules directory) result))
+ (append (scheme-modules directory) result))
((directory . sub-directory)
- (append (package-modules directory sub-directory)
+ (append (scheme-modules directory sub-directory)
result))))
'()
path))
- branch master updated (b0d388c -> e702e26), Ludovic Courtès, 2016/06/20
- 08/08: hydra: Add jobs for the system tests., Ludovic Courtès, 2016/06/20
- 06/08: build: 'make check-system' now honors $TESTS., Ludovic Courtès, 2016/06/20
- 04/08: packages: Export 'scheme-modules'.,
Ludovic Courtès <=
- 05/08: tests: Add a mechanism to describe and discover system tests., Ludovic Courtès, 2016/06/20
- 01/08: tests: base: Fully honor the OS passed to 'run-basic-test'., Ludovic Courtès, 2016/06/20
- 07/08: gexp: Use a relative file name., Ludovic Courtès, 2016/06/20
- 02/08: vm: 'qemu-command' honors its argument., Ludovic Courtès, 2016/06/20
- 03/08: tests: Add system installation test., Ludovic Courtès, 2016/06/20