[Guile-commits] 02/02: Fix source location bug for neoteric exprs introduced by refactoring

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 64c89458e6b4fcc834ed86bf0d6606a5a1044e7e
Author: Andy Wingo <wi...@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);