Fix Scheme read without source positions

* module/ice-9/read.scm (read): Fix annotate when positions are
disabled.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 72811fdb885a59487a9ca5120413bdcb17b80f35..74f567dd5dbad018df4ed83f1e2627773f4451e9 100644 (file)
--- 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)))