From 08e1cfddc94a6aae79b21d7795accf3e100a1f2f Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 28 Feb 2017 16:17:33 +0100 Subject: gpgscm: Fix calculating the line number. * tests/gpgscm/scheme.c (opexe_5): Only increment the line number on newlines. Fixes-commit: 7cc57e2c63d0fa97569736419db5c76117e7685b Signed-off-by: Justus Winter --- scheme.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme.c b/scheme.c index 405dee4..0453754 100644 --- a/scheme.c +++ b/scheme.c @@ -5045,8 +5045,8 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) { int c = inchar(sc); if (c != '\n') backchar(sc,c); - port_increment_current_line(sc, - &sc->load_stack[sc->file_i], 1); + else + port_increment_current_line(sc, &sc->load_stack[sc->file_i], 1); sc->nesting_stack[sc->file_i]--; s_return(sc,reverse_in_place(sc, sc->NIL, sc->args)); } else if (sc->tok == TOK_DOT) { -- cgit v1.2.3