tests/gpgscm: Nicer error message.
authorJustus Winter <justus@g10code.com>
Fri, 22 Jan 2016 10:13:14 +0000 (11:13 +0100)
committerJustus Winter <justus@g10code.com>
Fri, 17 Jun 2016 09:38:00 +0000 (11:38 +0200)
* tests/gpgscm/scheme.c (opexe_0): Include the value that we tried to
evaluate as function-like in the error message.

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

index 220eed3..fba1071 100644 (file)
@@ -2683,7 +2683,7 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) {
                sc->dump = cont_dump(sc->code);
                s_return(sc,sc->args != sc->NIL ? car(sc->args) : sc->NIL);
           } else {
                sc->dump = cont_dump(sc->code);
                s_return(sc,sc->args != sc->NIL ? car(sc->args) : sc->NIL);
           } else {
-               Error_0(sc,"illegal function");
+               Error_1(sc,"illegal function",sc->code);
           }
 
      case OP_DOMACRO:    /* do macro */
           }
 
      case OP_DOMACRO:    /* do macro */