From 09f49941e2fff04f9bda4eaf1261d3fb1161907b Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 4 Sep 2010 21:30:57 +0200
Subject: 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(-)

(limited to 'geiser')

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)))
-- 
cgit v1.2.3