summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))