[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Fix Scheme read without source positions
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/02: Fix Scheme read without source positions |
Date: |
Mon, 1 Mar 2021 14:18:07 -0500 (EST) |
wingo pushed a commit to branch master
in repository guile.
commit 93b82fca2038f01713a6c6277ae9e614e308d9a5
Author: Andy Wingo <wingo@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)))