[nongnu] elpa/geiser-gauche 0fac12f 048/119: Improve module documentation

[Philip Kaludercic]

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

    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))
 
-