nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

packages: Export 'scheme-modules'. 

* gnu/packages.scm (package-modules): Rename to...
(scheme-modules): ... this.  Export.  Update callers.
This commit is contained in:
Ludovic Courtès 2016-06-20 22:30:16 +02:00
parent 94b4274d0d
commit 2a6ba87086
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages.scm
View File

@ -45,6 +45,7 @@
%package-module-path %package-module-path
fold-packages fold-packages
scheme-modules ;XXX: for lack of a better place
find-packages-by-name find-packages-by-name
find-best-packages-by-name find-best-packages-by-name
@ -158,8 +159,8 @@ returned list is sorted in alphabetical order."
(map string->symbol (map string->symbol
(string-tokenize (string-drop-right file 4) not-slash))))) (string-tokenize (string-drop-right file 4) not-slash)))))
(define* (package-modules directory #:optional sub-directory) (define* (scheme-modules directory #:optional sub-directory)
"Return the list of modules that provide packages for the distribution. "Return the list of Scheme modules available under DIRECTORY.
Optionally, narrow the search to SUB-DIRECTORY." Optionally, narrow the search to SUB-DIRECTORY."
(define prefix-len (define prefix-len
(string-length directory)) (string-length directory))
@ -184,9 +185,9 @@ search."
(fold-right (lambda (spec result) (fold-right (lambda (spec result)
(match spec (match spec
((? string? directory) ((? string? directory)
(append (package-modules directory) result)) (append (scheme-modules directory) result))
((directory . sub-directory) ((directory . sub-directory)
(append (package-modules directory sub-directory) (append (scheme-modules directory sub-directory)
result)))) result))))
'() '()
path)) path))