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

Scheme read respects "positions" reader option

Browse source 
* module/ice-9/read.scm (read): Don't add source positions if the option
  is off.
This commit is contained in:
Andy Wingo 2021-02-17 12:14:15 +01:00
parent beac6a3e29
commit 71e53d73fe
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

@ -146,7 +146,8 @@
(define (annotate line column datum) (define (annotate line column datum)
;; FIXME: Return a syntax object instead, so we can avoid the ;; FIXME: Return a syntax object instead, so we can avoid the
;; srcprops side table. ;; srcprops side table.
(when (and (supports-source-properties? datum) (when (and (record-positions?)
(supports-source-properties? datum)
;; Line or column can be invalid via set-port-column! or ;; Line or column can be invalid via set-port-column! or
;; ungetting chars beyond start of line. ;; ungetting chars beyond start of line.
(<= 0 line) (<= 0 line)