From: Andy Wingo <wingo@pobox.com>
Date: Wed, 17 Feb 2021 11:14:15 +0000 (+0100)
Subject: Scheme read respects "positions" reader option
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=71e53d73fee798c4cadf795e87d3efe1b12ebf04;p=platform%2Fupstream%2Fguile.git

Scheme read respects "positions" reader option

* module/ice-9/read.scm (read): Don't add source positions if the option
  is off.
---

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 04e3cac93..be072f9c7 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -146,7 +146,8 @@
   (define (annotate line column datum)
     ;; FIXME: Return a syntax object instead, so we can avoid the
     ;; 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
                ;; ungetting chars beyond start of line.
                (<= 0 line)