branch: elpa/geiser-guile
commit 09f49941e2fff04f9bda4eaf1261d3fb1161907b
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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)))
