From 874424ee3cc795eae9972b6259a2cc4dcdbb868e Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 31 Jan 2017 13:53:28 +0100 Subject: [PATCH] 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 --- tests/gpgscm/scheme.c | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index fe16d4829..d2c3dfc43 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/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)); }