From: Andy Wingo <wingo@pobox.com>
Date: Thu, 25 Feb 2021 15:05:52 +0000 (+0100)
Subject: read-syntax uses vector source representation
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6c57b2af79dbb36e0faaab6b79a6f80a1df20979;p=platform%2Fupstream%2Fguile.git

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 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))