aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-06-20 22:30:16 +0200
committerLudovic Courtès <ludo@gnu.org>2016-06-20 23:50:46 +0200
commit2a6ba870867e31a32faca0dbf0e062bf9f5c0d78 (patch)
tree078403659ac21a03a64317123798a9f3d86657f7
parent94b4274d0dc5768bac255980c7e785bd3dff261f (diff)
downloadguix-2a6ba870867e31a32faca0dbf0e062bf9f5c0d78.tar
guix-2a6ba870867e31a32faca0dbf0e062bf9f5c0d78.tar.gz
packages: Export 'scheme-modules'.
* gnu/packages.scm (package-modules): Rename to... (scheme-modules): ... this. Export. Update callers.
-rw-r--r--gnu/packages.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 7130f58fdd..9496a270eb 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))