01/02: modules: Add more source-less modules.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 7afc2aabdf2041faac1d1adfc5752f1e92d29822
Author: Ludovic Courtès <address@hidden>
Date:   Fri May 19 10:45:12 2017 +0200

    modules: Add more source-less modules.
    
    * guix/modules.scm (%source-less-modules): New variable.
    (source-module-dependencies): Use it.
---
 guix/modules.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/guix/modules.scm b/guix/modules.scm
index 8c63f21..24b5903 100644
--- a/guix/modules.scm
+++ b/guix/modules.scm
@@ -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