summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/utils.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 02:11:55 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-08 02:11:55 +0200
commite9b0f1aaa810c15dbdffc4147f2956851c4f1782 (patch)
tree17878b6fce5aa24a7415b8a9e41d6c59e86437ed /scheme/racket/geiser/utils.rkt
parentd402ed3f41790abb9861af9dbe47166295cd66b1 (diff)
downloadgeiser-guile-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.gz
geiser-guile-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.bz2
Racket: square cosmetics.
Diffstat (limited to 'scheme/racket/geiser/utils.rkt')
-rw-r--r--scheme/racket/geiser/utils.rkt8
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)))