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

Fix Scheme read without source positions

Browse source 
* module/ice-9/read.scm (read): Fix annotate when positions are
disabled.
This commit is contained in:
Andy Wingo 2021-02-28 20:54:40 +01:00
parent 697f2b3ca1
commit 93b82fca20
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -874,7 +874,8 @@
(line . ,line)
(column . ,(1- column)))))
datum)
identity))
(lambda (line column datum)
datum)))
(%read port annotate identity))
(define* (read-syntax #:optional (port (current-input-port)))