diff options
author | Andy Wingo <wingo@pobox.com> | 2021-02-25 16:05:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-02-25 21:26:17 +0100 |
commit | 6c57b2af79dbb36e0faaab6b79a6f80a1df20979 (patch) | |
tree | cd956cf1cc9b33f649c8e22ab9aad258803ef733 | |
parent | 18c09f0492069314a3ff954f907bd4e030c67f59 (diff) | |
download | guile-6c57b2af79dbb36e0faaab6b79a6f80a1df20979.tar.gz |
read-syntax uses vector source representation
* module/ice-9/read.scm (read-syntax): Switch to sourcev format.
-rw-r--r-- | module/ice-9/read.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 0724c6664..72811fdb8 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -882,7 +882,5 @@ (define (annotate line column datum) (datum->syntax #f ; No lexical context. datum - #:source `((filename . ,filename) - (line . ,line) - (column . ,(1- column))))) + #:source (vector filename line (1- column)))) (%read port annotate syntax->datum)) |