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/locations.rkt | |
| parent | d402ed3f41790abb9861af9dbe47166295cd66b1 (diff) | |
| download | geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.gz geiser-chez-e9b0f1aaa810c15dbdffc4147f2956851c4f1782.tar.bz2 | |
Racket: square cosmetics.
Diffstat (limited to 'scheme/racket/geiser/locations.rkt')
| -rw-r--r-- | scheme/racket/geiser/locations.rkt | 10 |
1 files changed, 5 insertions, 5 deletions
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)))) |