diff options
| author | jao <jao@gnu.org> | 2022-10-09 06:21:46 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-09 06:21:46 +0100 |
| commit | 501fa22da461a0d739cfb977daa6bf0c163b7dd4 (patch) | |
| tree | 0a1b4cfd0366ede6c4b81c646927a0c07292e458 /src/geiser | |
| parent | 3bfa85afb9877d951e0082a2f249901d1f06974d (diff) | |
| download | geiser-chez-501fa22da461a0d739cfb977daa6bf0c163b7dd4.tar.gz geiser-chez-501fa22da461a0d739cfb977daa6bf0c163b7dd4.tar.bz2 | |
whitespace and spurious rest arg
Diffstat (limited to 'src/geiser')
| -rw-r--r-- | src/geiser/geiser.ss | 12 |
1 files 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))))))) |