mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Fix source location bug for neoteric exprs introduced by refactoring

Browse source 
* libguile/read.c (scm_read_expression): Ungetc after capturing the
  column.
This commit is contained in:
Andy Wingo 2020-09-10 22:10:54 +02:00
parent e9c5a1719b
commit 64c89458e6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/read.c
View file

@ -1893,9 +1893,9 @@ scm_read_expression (SCM port, scm_t_read_opts *opts)
int c = flush_ws (port, opts, (char *) NULL); int c = flush_ws (port, opts, (char *) NULL);
if (c == EOF) if (c == EOF)
return SCM_EOF_VAL; return SCM_EOF_VAL;
scm_ungetc (c, port);
line = scm_port_line (port); line = scm_port_line (port);
column = scm_port_column (port); column = scm_port_column (port);
scm_ungetc (c, port);
} }
expr = read_inner_expression (port, opts); expr = read_inner_expression (port, opts);