[nongnu] elpa/geiser-guile 417460b 099/284: Multiple arity display, used by PLT backend (case-lambda).

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 417460bb7dcaf110fff8dea9390c9b3afcd7681c
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Multiple arity display, used by PLT backend (case-lambda).
---
 geiser/doc.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/geiser/doc.scm b/geiser/doc.scm
index 1ebdd85..b634c08 100644
--- a/geiser/doc.scm
+++ b/geiser/doc.scm
@@ -45,11 +45,11 @@
             (else (list args)))))
   `(,id
     (args ,@(if (list? args)
-                `((required ,@(arglst 'required))
-                  (optional ,@(arglst 'optional)
-                            ,@(let ((rest (assq-ref args 'rest)))
-                                (if rest (list "...") '())))
-                  (key ,@(arglst 'keyword)))
+                `(((required ,@(arglst 'required))
+                   (optional ,@(arglst 'optional)
+                             ,@(let ((rest (assq-ref args 'rest)))
+                                 (if rest (list "...") '())))
+                   (key ,@(arglst 'keyword))))
                 '()))))
 
 (define (obj-args obj)