From be78c20cdd93ed295bfee1aef1e9d2e9253b779c Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 4 Apr 2017 12:02:54 +0200 Subject: gpgscm: Add and use opcode for reversing a list in place. * tests/gpgscm/lib.scm (string-split-pln): Use 'reverse!'. (string-rtrim): Likewise. * tests/gpgscm/opdefines.h (reverse!): New opcode. * tests/gpgscm/scheme.c (opexe_0): Handle new opcode. Signed-off-by: Justus Winter --- scheme.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'scheme.c') diff --git a/scheme.c b/scheme.c index 655c246..f3a99fd 100644 --- a/scheme.c +++ b/scheme.c @@ -4682,6 +4682,9 @@ static pointer opexe_0(scheme *sc, enum scheme_opcodes op) { CASE(OP_REVERSE): /* reverse */ s_return(sc,reverse(sc, sc->NIL, car(sc->args))); + CASE(OP_REVERSE_IN_PLACE): /* reverse! */ + s_return(sc, reverse_in_place(sc, sc->NIL, car(sc->args))); + CASE(OP_LIST_STAR): /* list* */ s_return(sc,list_star(sc,sc->args)); -- cgit v1.2.3