[nongnu] elpa/geiser-gauche c9d367e 024/119: Fix complex key argument autodocs

[Philip Kaludercic]

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

    Fix complex key argument autodocs
---
 geiser.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/geiser.scm b/geiser.scm
index a6841e1..3ea5b47 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -34,6 +34,12 @@
       (cons (car dl) (dotted-list-head (cdr dl)))
       (list (car dl))))
 
+;; Get the first leaf of a tree
+(define (get-first-leaf tree)
+  (if (pair? tree)
+      (get-first-leaf (car tree))
+      tree))
+
 
 
 (define (geiser:macroexpand form . rest)
@@ -122,7 +128,7 @@
                (case section
                  ((:optional) (push! optional x))
                  ((:key) (push! key
-                                (let1 sym (if (pair? x) (car x) x)
+                                (let1 sym (get-first-leaf x)
                                       (symbol-append ': sym))))
                  ((:rest) (push! required "..."))
                  (else (push! required x)))))