diff options
| -rw-r--r-- | tests/gpgscm/scheme.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index aabf4008e..4c28230f1 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -4938,6 +4938,11 @@ void scheme_load_named_file(scheme *sc, FILE *fin, const char *filename) { if(sc->retcode==0) { sc->retcode=sc->nesting!=0; } + +#if SHOW_ERROR_LINE + sc->free(sc->load_stack[0].rep.stdio.filename); + sc->load_stack[0].rep.stdio.filename = NULL; +#endif } void scheme_load_string(scheme *sc, const char *cmd) { |