diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-06-20 22:30:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-06-20 23:50:46 +0200 |
| commit | 2a6ba870867e31a32faca0dbf0e062bf9f5c0d78 (patch) | |
| tree | 078403659ac21a03a64317123798a9f3d86657f7 | |
| parent | 94b4274d0dc5768bac255980c7e785bd3dff261f (diff) | |
| download | guix-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.scm | 9 |
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)) |