diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-27 00:54:59 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-27 00:54:59 +0100 |
| commit | b39fd77d8899bc7ff6608645afc9e2eb0eb0d33c (patch) | |
| tree | 2228ff22afcc5423239572bbcdf186d31e11714a /scheme/racket/geiser/locations.rkt | |
| parent | 96610db57a61d5380eeeb3b4780846c39fb79422 (diff) | |
| download | geiser-chez-b39fd77d8899bc7ff6608645afc9e2eb0eb0d33c.tar.gz geiser-chez-b39fd77d8899bc7ff6608645afc9e2eb0eb0d33c.tar.bz2 | |
No more interning in the scheme reader
We avoid using elisp's read for symbols, reading uninterned ones
instead. And then, we cannot use symbols as keys in responses from
scheme: we're using strings instead.
Diffstat (limited to 'scheme/racket/geiser/locations.rkt')
| -rw-r--r-- | scheme/racket/geiser/locations.rkt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/racket/geiser/locations.rkt b/scheme/racket/geiser/locations.rkt index 4715b8f..1ed4534 100644 --- a/scheme/racket/geiser/locations.rkt +++ b/scheme/racket/geiser/locations.rkt @@ -30,9 +30,9 @@ (cons sym #f)))) (define (make-location name path line) - (list (cons 'name name) - (cons 'file (if (path? path) (path->string path) '())) - (cons 'line (or line '())))) + (list (cons "name" name) + (cons "file" (if (path? path) (path->string path) '())) + (cons "line" (or line '())))) (define (symbol-location sym) (let* ([loc (symbol-location* sym)] |