summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-02-25 16:05:52 +0100
committerAndy Wingo <wingo@pobox.com>2021-02-25 21:26:17 +0100
commit6c57b2af79dbb36e0faaab6b79a6f80a1df20979 (patch)
treecd956cf1cc9b33f649c8e22ab9aad258803ef733
parent18c09f0492069314a3ff954f907bd4e030c67f59 (diff)
downloadguile-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.scm4
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))