branch: elpa/geiser-gauche
commit c96701c11fe07bd8e8f2a4b65b171a0ffc156570
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Continue work on module docs
---
geiser.scm | 22 +++++++++++++++++++---
1 file changed, 19 insertions(+), 3 deletions(-)
diff --git a/geiser.scm b/geiser.scm
index 4f69b8e..9f1517b 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -206,9 +206,23 @@
;; Module documentation
(define (geiser:module-exports mod-name . rest)
- (let1 symbols (module-exports (find-module mod-name))
- (list (cons "procs"
- (map list symbols)))))
+ (let* ((module (find-module mod-name))
+ (symbols (module-exports module))
+ (syms-objs
+ (map (^x (cons x (global-variable-ref module x)))
+ symbols))
+ (procs ()) (macros ()) (vars ()))
+ (dolist (sym-obj syms-objs)
+ (let ((obj (cdr sym-obj))
+ (sym (car sym-obj)))
+ (cond
+ ((is-a? obj <procedure>) (push! procs sym))
+ ((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)))))
;; Further
@@ -224,3 +238,5 @@
;; TODO We add the load-path at the end. Is this correct?
(define-macro (geiser:add-to-load-path dir)
`(add-load-path ,dir :after))
+
+
