[nongnu] elpa/geiser-gauche a1ef874 049/119: Finish module info for now

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit a1ef87428373b82132d6aa03b86eb3bededa5cf4
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Finish module info for now
---
 geiser.scm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/geiser.scm b/geiser.scm
index 2f1ef89..3bdea1c 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -219,13 +219,18 @@
                  (sym (car sym-obj)))
              (cond
               ((or (is-a? obj <generic>)
-                   (is-a? obj <procedure>)) (push! procs sym))
+                   (is-a? obj <procedure>))
+               (push! procs
+                      (list sym (cons "signature"
+                                      (remove (^x (and (pair? x)
+                                                       (string? (car x))
+                                                       (string= "module" (car 
x))))
+                                       (formatted-autodoc sym #f))))))
               ((or (is-a? obj <macro>)
-                   (is-a? obj <syntax>)) (push! macros sym))
-              (else (push! vars sym)))))
-    (list (cons "procs" (map list procs))
-         (cons "syntax" (map list macros))
-         (cons "vars" (map list vars)))))
+                   (is-a? obj <syntax>))
+               (push! macros (list sym)))
+              (else (push! vars (list sym))))))
+    `(list ("modules") ("procs" . ,procs) ("syntax" . ,macros) ("vars" . 
,vars))))
 
 
 ;; Further