gpgscm: Fix build with list environments.

* tests/gpgscm/scheme.c (new_slot_spec_in_env): Provide preallocation
inforomation if USE_ALIST_ENV.

Signed-off-by: Justus Winter <[email protected]>

1 files changed, 1 insertions, 0 deletions

diff --git a/scheme.c b/scheme.c
index fe16d48..d2c3dfc 100644
--- a/scheme.c
+++ b/scheme.c
@@ -2699,6 +2699,7 @@ static INLINE void new_frame_in_env(scheme *sc, pointer old_env)
 static INLINE void new_slot_spec_in_env(scheme *sc, pointer env,
                                         pointer variable, pointer value)
 {
+#define new_slot_spec_in_env_allocates	2
   car(env) = immutable_cons(sc, immutable_cons(sc, variable, value), car(env));
 }