mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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) (define (annotate line column datum)
(datum->syntax #f ; No lexical context. (datum->syntax #f ; No lexical context.
datum datum
#:source `((filename . ,filename) #:source (vector filename line (1- column))))
(line . ,line)
(column . ,(1- column)))))
(%read port annotate syntax->datum)) (%read port annotate syntax->datum))