14/17: modules: Add more source-less modules.

[Ludovic Courtès]

civodul pushed a commit to branch version-0.13.0
in repository guix.

commit 4ee6584cbfe5389db72f490f29e438f9935c2316
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