branch: elpa/geiser-gauche
commit 005057138dc35db072f2f6b1729058476d920ef5
Author: András Simonyi <[email protected]>
Commit: András Simonyi <[email protected]>
Minor fix in autodoc
---
geiser.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/geiser.scm b/geiser.scm
index 498fc07..657111b 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -116,15 +116,13 @@
(key '("key"))
(section :required))
(dolist (x arg-info)
- (case x
- ((:optional :key) (set! section x))
- ((:rest))
- (else (case section
- ((:optional) (push! optional x))
- ((:key) (push! key x))
- (else (if (symbol=? x 'args)
- (push! required "...")
- (push! required x)))))))
+ (if (memq x '(:optional :key :rest))
+ (set! section x)
+ (case section
+ ((:optional) (push! optional x))
+ ((:key) (push! key x))
+ ((:rest) (push! required "..."))
+ (else (push! required x)))))
(map (cut reverse <>)
(list required optional key))))
