diff options
| -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))))))) |