From 5e2c87483a4f043377aa38269e26cb9fad969118 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 17 Jun 2010 02:10:09 +0200 Subject: Golfing. --- geiser/modules.scm | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'geiser/modules.scm') diff --git a/geiser/modules.scm b/geiser/modules.scm index e59bbd2..6f499dd 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -66,19 +66,16 @@ (submodules (resolve-module '() #f))) (define (all-modules) - (define (not-anon m) (not (string-match "^[(]#[{]" m))) + (define (maybe-name m) + (let ((name (format "~A" (module-name m)))) + (and (not (string-match "^[(]#[{]" name)) name))) (let* ((guile (resolve-module '(guile))) (roots (remove (lambda (m) (eq? m guile)) (root-modules)))) (cons "(guile)" - (filter not-anon - (apply append - (map (lambda (r) - (map (lambda (m) - (format "~A" (module-name m))) - (all-child-modules r '()))) - roots)))))) - -(define (all-child-modules mod seen) + (filter-map maybe-name + (apply append (map all-child-modules roots)))))) + +(define* (all-child-modules mod #:optional (seen '())) (let ((cs (filter (lambda (m) (not (member m seen))) (submodules mod)))) (fold (lambda (m all) (append (all-child-modules m all) all)) (list mod) -- cgit v1.2.3