mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

read-syntax uses vector source representation

Browse source 
* module/ice-9/read.scm (read-syntax): Switch to sourcev format.
This commit is contained in:
Andy Wingo 2021-02-25 16:05:52 +01:00
parent 18c09f0492
commit 6c57b2af79
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/read.scm
View file

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