summaryrefslogtreecommitdiff
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
commit0628b1b2180896edbc0ab6b472860fc951cd5445 (patch)
treed7c046873327e2e2b78b6061225268b1a7eaa7e7
parent2d6f9c093ab8f5c29204c7cd82ba53253a2e8348 (diff)
downloadgeiser-guile-0628b1b2180896edbc0ab6b472860fc951cd5445.tar.gz
geiser-guile-0628b1b2180896edbc0ab6b472860fc951cd5445.tar.bz2
Guile: better filtering of "anonymous" module names
Temporary modules with fancy gensym names have kind #f.
-rw-r--r--scheme/guile/geiser/modules.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm
index f558579..a1697a7 100644
--- a/scheme/guile/geiser/modules.scm
+++ b/scheme/guile/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)))