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

modules: Add more source-less modules. 

* guix/modules.scm (%source-less-modules): New variable.
(source-module-dependencies): Use it.
This commit is contained in:
Ludovic Courtès 2017-05-19 10:45:12 +02:00
parent ffa5e0a6d2
commit 7afc2aabdf
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/modules.scm
View File

@ -95,11 +95,16 @@ depends on."
(('gnu _ ...) #t) (('gnu _ ...) #t)
(_ #f))) (_ #f)))
(define %source-less-modules
;; These are modules that have no corresponding source files or a source
;; file different from what you'd expect.
'((system syntax) ;2.0, defined in boot-9
(ice-9 ports internal) ;2.2, defined in (ice-9 ports)
(system syntax internal))) ;2.2, defined in boot-9
(define* (source-module-dependencies module #:optional (load-path %load-path)) (define* (source-module-dependencies module #:optional (load-path %load-path))
"Return the modules used by MODULE by looking at its source code." "Return the modules used by MODULE by looking at its source code."
;; The (system syntax) module is a special-case because it has no (if (member module %source-less-modules)
;; corresponding source file (as of Guile 2.0.)
(if (equal? module '(system syntax))
'() '()
(module-file-dependencies (module-file-dependencies
(search-path load-path (search-path load-path