gpgscm: Fix calculating the line number.
authorJustus Winter <justus@g10code.com>
Tue, 28 Feb 2017 15:17:33 +0000 (16:17 +0100)
committerJustus Winter <justus@g10code.com>
Tue, 28 Feb 2017 15:17:33 +0000 (16:17 +0100)
* tests/gpgscm/scheme.c (opexe_5): Only increment the line number on
newlines.

Fixes-commit: 7cc57e2c63d0fa97569736419db5c76117e7685b
Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/scheme.c

index 405dee4..0453754 100644 (file)
@@ -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) {