diff options
author | Andy Wingo <wingo@pobox.com> | 2020-09-10 22:10:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-09-10 22:11:34 +0200 |
commit | 64c89458e6b4fcc834ed86bf0d6606a5a1044e7e (patch) | |
tree | 8aade068a938cafd5d828514cb47a6feebadb373 | |
parent | e9c5a1719bae94961ae40151f476a3e221e94b18 (diff) | |
download | guile-64c89458e6b4fcc834ed86bf0d6606a5a1044e7e.tar.gz |
Fix source location bug for neoteric exprs introduced by refactoring
* libguile/read.c (scm_read_expression): Ungetc after capturing the
column.
-rw-r--r-- | libguile/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index 69e93e8ac..51dffbf3a 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1893,9 +1893,9 @@ scm_read_expression (SCM port, scm_t_read_opts *opts) int c = flush_ws (port, opts, (char *) NULL); if (c == EOF) return SCM_EOF_VAL; - scm_ungetc (c, port); line = scm_port_line (port); column = scm_port_column (port); + scm_ungetc (c, port); } expr = read_inner_expression (port, opts); |