[nongnu] elpa/geiser-guile d0f98a7 036/284: Simpler handling of rest args in Emacs' side.

[Philip Kaludercic]

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

    Simpler handling of rest args in Emacs' side.
---
 geiser/introspection.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/geiser/introspection.scm b/geiser/introspection.scm
index 0394926..7e468e7 100644
--- a/geiser/introspection.scm
+++ b/geiser/introspection.scm
@@ -67,7 +67,7 @@
     (let ((sgn `(,fun ,@(or req '())
                       ,@(if opt (cons #:optional opt) '())
                       ,@(if key (cons #:key key) '()))))
-      (if rest `(,@sgn . ,rest) sgn))))
+      (if rest `(,@sgn #:rest ,rest) sgn))))
 
 (define (find-position args form)
   (let* ((lf (length form))
@@ -89,7 +89,7 @@
                 (else (+ 1 req
                          (if (> opt 0) (+ 1 opt) 0)
                          (if (null? keys) 0 (+ 1 (length keys)))
-                         (if rest 1 0))))))))
+                         (if rest 2 0))))))))
 
 (define (symbol->obj sym)
   (and (symbol? sym)