Browse Source

modules: Add more source-less modules.

* guix/modules.scm (%source-less-modules): New variable.
(source-module-dependencies): Use it.
gn-latest-20200428
Ludovic Courtès 4 years ago
parent
commit
7afc2aabdf
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 8 additions and 3 deletions
  1. +8
    -3
      guix/modules.scm

+ 8
- 3
guix/modules.scm View File

@ -95,11 +95,16 @@ depends on."
(('gnu _ ...) #t)
(_ #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))
"Return the modules used by MODULE by looking at its source code."
;; The (system syntax) module is a special-case because it has no
;; corresponding source file (as of Guile 2.0.)
(if (equal? module '(system syntax))
(if (member module %source-less-modules)
'()
(module-file-dependencies
(search-path load-path


Loading…
Cancel
Save