summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))))))