summaryrefslogtreecommitdiff
path: root/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-04 21:30:57 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-04 21:30:57 +0200
commit09f49941e2fff04f9bda4eaf1261d3fb1161907b (patch)
treead9d91adb5277fe25742673337cedfafa329258f /geiser
parent19ed2c06ab66a4ef22e7695c06d09579b5dfa54a (diff)
downloadgeiser-guile-09f49941e2fff04f9bda4eaf1261d3fb1161907b.tar.gz
geiser-guile-09f49941e2fff04f9bda4eaf1261d3fb1161907b.tar.bz2
Guile: better filtering of "anonymous" module names
Temporary modules with fancy gensym names have kind #f.
Diffstat (limited to 'geiser')
-rw-r--r--geiser/modules.scm4
1 files changed, 1 insertions, 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)))