From 0628b1b2180896edbc0ab6b472860fc951cd5445 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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. --- scheme/guile/geiser/modules.scm | 4 +--- 1 file changed, 1 insertion(+), 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))) -- cgit v1.2.3