diff options
author | Andy Wingo <wingo@pobox.com> | 2021-02-28 20:54:40 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-02-28 20:54:40 +0100 |
commit | 93b82fca2038f01713a6c6277ae9e614e308d9a5 (patch) | |
tree | 25674edc0a9896837dd58827f508f0ed11edd955 | |
parent | 697f2b3ca143e47c84341574a986c29b834034f9 (diff) | |
download | guile-93b82fca2038f01713a6c6277ae9e614e308d9a5.tar.gz |
Fix Scheme read without source positions
* module/ice-9/read.scm (read): Fix annotate when positions are
disabled.
-rw-r--r-- | module/ice-9/read.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 72811fdb8..74f567dd5 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))) |