From 501fa22da461a0d739cfb977daa6bf0c163b7dd4 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 9 Oct 2022 06:21:46 +0100 Subject: whitespace and spurious rest arg --- src/geiser/geiser.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss index e506a74..960b71a 100644 --- a/src/geiser/geiser.ss +++ b/src/geiser/geiser.ss @@ -164,20 +164,16 @@ `(,operator ("value" . ,(value->string binding))))) '()))) - (define (geiser:autodoc ids . rest) + (define (geiser:autodoc ids) (cond ((null? ids) '()) ((not (list? ids)) (geiser:autodoc (list ids))) ((not (symbol? (car ids))) (geiser:autodoc (cdr ids))) (else (map operator-arglist ids)))) - (define (geiser:no-values) - #f) + (define (geiser:no-values) #f) - (define (geiser:newline) - #f) + (define (geiser:newline) #f) (define (geiser:macroexpand form . rest) (with-output-to-string - (lambda () - (pretty-print - (syntax->datum (expand form))))))) + (lambda () (pretty-print (syntax->datum (expand form))))))) -- cgit v1.2.3