From d0f98a72159710f67f0cd4cfb8bf9d14ab557971 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 28 Feb 2009 04:35:45 +0100 Subject: 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) -- cgit v1.2.3