branch: elpa/geiser-gauche
commit a1ef87428373b82132d6aa03b86eb3bededa5cf4
Author: András Simonyi <andras.simo...@gmail.com>
Commit: András Simonyi <andras.simo...@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
