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 04e3cac93f1a8424c365f2c8ebee0e8387a7a3be..be072f9c7d6264e079af489fa3341a8cc8132e25 100644 (file)
--- 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)