[nongnu] elpa/geiser-guile 09f4994 159/284: Guile: better filtering of "anonymous" module names

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 09f49941e2fff04f9bda4eaf1261d3fb1161907b
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: better filtering of "anonymous" module names
    
    Temporary modules with fancy gensym names have kind #f.
---
 geiser/modules.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/geiser/modules.scm b/geiser/modules.scm
index f558579..a1697a7 100644
--- a/geiser/modules.scm
+++ b/geiser/modules.scm
@@ -64,9 +64,7 @@
 
 (define (all-modules)
   (define (maybe-name m)
-    (let ((name (module-name m)))
-      (and (not (gensym? (car name)))
-           (format "~A" name))))
+    (and (module-kind m) (format "~A" (module-name m))))
   (let* ((guile (resolve-module '(guile)))
          (roots (remove (lambda (m) (eq? m guile)) (root-modules)))
          (children (append-map all-child-modules roots)))