From f1ac35fa6563827c16f175f3aedc285c58616bec Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 18 Jun 2010 13:40:54 +0200 Subject: Guile: filtering gensym names in autodoc display. --- geiser/modules.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'geiser/modules.scm') diff --git a/geiser/modules.scm b/geiser/modules.scm index 6f499dd..7ca18c9 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -25,7 +25,7 @@ (define (module-name? module-name) (and (list? module-name) - (> (length module-name) 0) + (not (null? module-name)) (every symbol? module-name))) (define (symbol-module sym . all) @@ -67,13 +67,13 @@ (define (all-modules) (define (maybe-name m) - (let ((name (format "~A" (module-name m)))) - (and (not (string-match "^[(]#[{]" name)) name))) + (let ((name (module-name m))) + (and (not (gensym? (car name))) + (format "~A" name)))) (let* ((guile (resolve-module '(guile))) - (roots (remove (lambda (m) (eq? m guile)) (root-modules)))) - (cons "(guile)" - (filter-map maybe-name - (apply append (map all-child-modules roots)))))) + (roots (remove (lambda (m) (eq? m guile)) (root-modules))) + (children (append-map all-child-modules roots))) + (cons "(guile)" (filter-map maybe-name children)))) (define* (all-child-modules mod #:optional (seen '())) (let ((cs (filter (lambda (m) (not (member m seen))) (submodules mod)))) -- cgit v1.2.3