[Guile-commits] 01/02: Fix Scheme read without source positions

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 93b82fca2038f01713a6c6277ae9e614e308d9a5
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Sun Feb 28 20:54:40 2021 +0100

    Fix Scheme read without source positions
    
    * module/ice-9/read.scm (read): Fix annotate when positions are
    disabled.
---
 module/ice-9/read.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 72811fd..74f567d 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -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)))