summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-09 06:21:46 +0100
committerjao <jao@gnu.org>2022-10-09 06:21:46 +0100
commit501fa22da461a0d739cfb977daa6bf0c163b7dd4 (patch)
tree0a1b4cfd0366ede6c4b81c646927a0c07292e458 /src
parent3bfa85afb9877d951e0082a2f249901d1f06974d (diff)
downloadgeiser-chez-501fa22da461a0d739cfb977daa6bf0c163b7dd4.tar.gz
geiser-chez-501fa22da461a0d739cfb977daa6bf0c163b7dd4.tar.bz2
whitespace and spurious rest arg
Diffstat (limited to 'src')
-rw-r--r--src/geiser/geiser.ss12
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)))))))