From e982432ba66652bc9bc16e334e1d4d184e1b68bd Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 31 Jan 2017 13:53:28 +0100 Subject: 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 --- scheme.c | 1 + 1 file changed, 1 insertion(+) 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)); } -- cgit v1.2.3