[nongnu] elpa/geiser-guile 11c2d58 138/284: Guile: excluding anonymous module names from completion.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 11c2d580e6983eb9ac3261ba39924b82d2938573
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: excluding anonymous module names from completion.
---
 geiser/modules.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/geiser/modules.scm b/geiser/modules.scm
index 15b9737..e59bbd2 100644
--- a/geiser/modules.scm
+++ b/geiser/modules.scm
@@ -66,14 +66,17 @@
   (submodules (resolve-module '() #f)))
 
 (define (all-modules)
-  (let ((guile (resolve-module '(guile))))
+  (define (not-anon m) (not (string-match "^[(]#[{]" m)))
+  (let* ((guile (resolve-module '(guile)))
+         (roots (remove (lambda (m) (eq? m guile)) (root-modules))))
     (cons "(guile)"
-          (apply append
-                 (map (lambda (r)
-                        (map (lambda (m)
-                               (format "~A" (module-name m)))
-                             (all-child-modules r '())))
-                      (remove (lambda (m) (eq? m guile)) (root-modules)))))))
+          (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)
   (let ((cs (filter (lambda (m) (not (member m seen))) (submodules mod))))