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 | 6d691763276e10f33eb2babf280314be9d8b4b6a (patch) | |
| tree | 8c359f6da62ea9c950512b6e80ba5b1553621e16 /geiser/utils.scm | |
| parent | 190290b181a713d804a003d503a2d8c98e573b03 (diff) | |
| download | geiser-guile-6d691763276e10f33eb2babf280314be9d8b4b6a.tar.gz geiser-guile-6d691763276e10f33eb2babf280314be9d8b4b6a.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 'geiser/utils.scm')
| -rw-r--r-- | geiser/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/geiser/utils.scm b/geiser/utils.scm index 632fe76..654cae8 100644 --- a/geiser/utils.scm +++ b/geiser/utils.scm @@ -30,8 +30,8 @@ (else (loop (cdr d) (cons (car d) s)))))) (define (make-location file line) - (list (cons 'file (if (string? file) file '())) - (cons 'line (if (number? line) (+ 1 line) '())))) + (list (cons "file" (if (string? file) file '())) + (cons "line" (if (number? line) (+ 1 line) '())))) (define (sort-symbols! syms) (let ((cmp (lambda (l r) |