diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-08-24 15:51:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-02 16:43:10 +0200 |
| commit | 02fa1d251c9caeba39c7593e0b8ab52b60735b17 (patch) | |
| tree | f760b10c3de817a7c476537890ac9a727b9593ed /guix/self.scm | |
| parent | 20cbd4f5f4d08bc26c22eb40b6c1e55b02e93f23 (diff) | |
| download | gnu-guix-02fa1d251c9caeba39c7593e0b8ab52b60735b17.tar gnu-guix-02fa1d251c9caeba39c7593e0b8ab52b60735b17.tar.gz | |
discovery: Add 'scheme-modules*'.
* guix/self.scm (scheme-modules*): Move to...
* guix/discovery.scm (scheme-modules*): ... here. New procedure. Make
'sub-directory' an optional parameter.
Diffstat (limited to 'guix/self.scm')
| -rw-r--r-- | guix/self.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/guix/self.scm b/guix/self.scm index 90649db17f..81f9b0cfd5 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -206,13 +206,6 @@ list of file-name/file-like objects suitable as inputs to 'imported-files'." (local-file file #:recursive? #t))) (find-files (string-append directory "/" sub-directory) pred))) -(define (scheme-modules* directory sub-directory) - "Return the list of module names found under SUB-DIRECTORY in DIRECTORY." - (let ((prefix (string-length directory))) - (map (lambda (file) - (file-name->module-name (string-drop file prefix))) - (scheme-files (string-append directory "/" sub-directory))))) - (define* (sub-directory item sub-directory) "Return SUB-DIRECTORY within ITEM, which may be a file name or a file-like object." |