From a3b258d1d15953816e0567511ecc527a4ccdd626 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Fri, 18 Nov 2016 12:51:00 +0100 Subject: gpgscm: Refactor. * tests/gpgscm/scheme.c (opexe_0): Reduce code duplication. Signed-off-by: Justus Winter --- tests/gpgscm/scheme.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index 4a83cd5a0..e011deaba 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -2963,16 +2963,16 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) { } } - CASE(OP_LAMBDA1): - gc_disable(sc, 1); - s_return_enable_gc(sc, mk_closure(sc, sc->value, sc->envir)); - #else CASE(OP_LAMBDA): /* lambda */ + sc->value = sc->code; + /* Fallthrough. */ +#endif + + CASE(OP_LAMBDA1): gc_disable(sc, 1); - s_return_enable_gc(sc, mk_closure(sc, sc->code, sc->envir)); + s_return_enable_gc(sc, mk_closure(sc, sc->value, sc->envir)); -#endif CASE(OP_MKCLOSURE): /* make-closure */ x=car(sc->args); -- cgit v1.2.3