branch: elpa/geiser-gauche
commit c9d367ef78bdc2e92a65cceb179b0cc36ee444a2
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
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)))))
