01/02: potluck: Find all build systems.

[Andy Wingo]

wingo pushed a commit to branch wip-potluck
in repository guix.

commit 4e9518d9cd04b01d61597d19c796dd27a00a2004
Author: Andy Wingo <address@hidden>
Date:   Wed Apr 12 18:54:47 2017 +0200

    potluck: Find all build systems.
    
    * guix/potluck/build-systems.scm (all-build-systems): Fix error enumerating
      build systems.
---
 guix/potluck/build-systems.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/potluck/build-systems.scm b/guix/potluck/build-systems.scm
index 45bd402..1f6aa1f 100644
--- a/guix/potluck/build-systems.scm
+++ b/guix/potluck/build-systems.scm
@@ -24,8 +24,9 @@
 
 (define all-build-systems
   (delay
-    (let* ((gbs (resolve-module '(guix build-system)))
-           (root (dirname (dirname (module-filename gbs))))
+    (let* ((gbs (or (search-path %load-path "guix/build-system.scm")
+                    (error "can't find (guix build-system)")))
+           (root (dirname (dirname gbs)))
            (by-name (make-hash-table)))
       (for-each (lambda (iface)
                   (module-for-each