branch: elpa/geiser-gauche
commit 0fac12f0dae9e7eed81abe55068e9e1a64f26929
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Improve module documentation
---
geiser.scm | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/geiser.scm b/geiser.scm
index 9f1517b..2f1ef89 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -209,17 +209,20 @@
(let* ((module (find-module mod-name))
(symbols (module-exports module))
(syms-objs
- (map (^x (cons x (global-variable-ref module x)))
- symbols))
+ (sort
+ (map (^x (cons x (global-variable-ref module x)))
+ symbols)
+ string>? (^x (symbol->string (car x)))))
(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)))))
+ (cond
+ ((or (is-a? obj <generic>)
+ (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)))))
@@ -239,4 +242,3 @@
(define-macro (geiser:add-to-load-path dir)
`(add-load-path ,dir :after))
-
