gpgscm: Recover more cells.

* tests/gpgscm/scheme.c (_s_return): Recover the cell holding the
opcode.

Fixes-commit: e0cbd3389e
Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-11-15 11:07:57 +01:00
parent 2cd281c4de
commit 93cc322ac0
1 changed files with 1 additions and 0 deletions

View File

@ -2643,6 +2643,7 @@ static pointer _s_return(scheme *sc, pointer a, int enable_gc) {
return sc->NIL;
free_cons(sc, dump, &op, &dump);
sc->op = ivalue(op);
free_cell(sc, op);
free_cons(sc, dump, &sc->args, &dump);
free_cons(sc, dump, &sc->envir, &dump);
free_cons(sc, dump, &sc->code, &sc->dump);