diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 02:11:55 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-08 02:11:55 +0200 |
| commit | e9b0f1aaa810c15dbdffc4147f2956851c4f1782 (patch) | |
| tree | 17878b6fce5aa24a7415b8a9e41d6c59e86437ed /scheme/racket/geiser/utils.rkt | |
| parent | d402ed3f41790abb9861af9dbe47166295cd66b1 (diff) | |
| download | geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.gz geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.bz2 | |
Racket: square cosmetics.
Diffstat (limited to 'scheme/racket/geiser/utils.rkt')
| -rw-r--r-- | scheme/racket/geiser/utils.rkt | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scheme/racket/geiser/utils.rkt b/scheme/racket/geiser/utils.rkt index 730a396..4bf9494 100644 --- a/scheme/racket/geiser/utils.rkt +++ b/scheme/racket/geiser/utils.rkt @@ -16,10 +16,10 @@ symbol->keyword) (define (pair->list pair) - (let loop ((d pair) (s '())) - (cond ((null? d) (reverse s)) - ((symbol? d) (reverse (cons d s))) - (else (loop (cdr d) (cons (car d) s)))))) + (let loop ([d pair] [s '()]) + (cond [(null? d) (reverse s)] + [(symbol? d) (reverse (cons d s))] + [else (loop (cdr d) (cons (car d) s))]))) (define keyword->symbol (compose string->symbol keyword->string)) (define (symbol->keyword sym) (string->keyword (format "~a" sym))) |