read-syntax uses vector source representation

* module/ice-9/read.scm (read-syntax): Switch to sourcev format.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 0724c6664aee23f1c535f905eb62c8773caba620..72811fdb885a59487a9ca5120413bdcb17b80f35 100644 (file)
--- 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))