diff options
| -rw-r--r-- | tests/gpgscm/scheme.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 673d19928..d088931e4 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -1569,10 +1569,10 @@ static void gc(scheme *sc, pointer a, pointer b) { /* reclaim cell */ if (typeflag(p) & T_FINALIZE) { finalize_cell(sc, p); - typeflag(p) = 0; - car(p) = sc->NIL; } ++sc->fcells; + typeflag(p) = 0; + car(p) = sc->NIL; cdr(p) = sc->free_cell; sc->free_cell = p; } |