From 64c89458e6b4fcc834ed86bf0d6606a5a1044e7e Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 10 Sep 2020 22:10:54 +0200
Subject: [PATCH] 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 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);