[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Fix source location bug for neoteric exprs introd
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Fix source location bug for neoteric exprs introduced by refactoring |
Date: |
Thu, 10 Sep 2020 16:11:44 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit 64c89458e6b4fcc834ed86bf0d6606a5a1044e7e
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Sep 10 22:10:54 2020 +0200
Fix source location bug for neoteric exprs introduced by refactoring
* libguile/read.c (scm_read_expression): Ungetc after capturing the
column.
---
libguile/read.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libguile/read.c b/libguile/read.c
index 69e93e8..51dffbf 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);