From e9b0f1aaa810c15dbdffc4147f2956851c4f1782 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 8 Jun 2010 02:11:55 +0200 Subject: Racket: square cosmetics. --- scheme/racket/geiser/locations.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'scheme/racket/geiser/locations.rkt') diff --git a/scheme/racket/geiser/locations.rkt b/scheme/racket/geiser/locations.rkt index b4c0f37..7f69d3a 100644 --- a/scheme/racket/geiser/locations.rkt +++ b/scheme/racket/geiser/locations.rkt @@ -20,8 +20,8 @@ (require geiser/utils geiser/modules) (define (symbol-location* sym) - (let* ((id (namespace-symbol->identifier sym)) - (binding (and id (identifier-binding id)))) + (let* ([id (namespace-symbol->identifier sym)] + [binding (and id (identifier-binding id))]) (if (list? binding) (cons (cadr binding) @@ -35,9 +35,9 @@ (cons 'line (or line '())))) (define (symbol-location sym) - (let* ((loc (symbol-location* sym)) - (name (car loc)) - (path (cdr loc))) + (let* ([loc (symbol-location* sym)] + [name (car loc)] + [path (cdr loc)]) (if path (make-location name path #f) (module-location sym)))) -- cgit v1.2.3