diff options
| author | Justus Winter <[email protected]> | 2017-04-04 10:02:54 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-10 12:57:28 +0000 |
| commit | e1bb9326dc381ae2711a81ab621e21a66388bcbd (patch) | |
| tree | b305acb45ad64641cbaa1c03b2416b9eb4db7c22 /tests/gpgscm/lib.scm | |
| parent | gpgscm: Deduplicate code. (diff) | |
| download | gnupg-e1bb9326dc381ae2711a81ab621e21a66388bcbd.tar.gz gnupg-e1bb9326dc381ae2711a81ab621e21a66388bcbd.zip | |
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 <[email protected]>
Diffstat (limited to 'tests/gpgscm/lib.scm')
| -rw-r--r-- | tests/gpgscm/lib.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index 2cfe725e9..ed3d572c1 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -95,10 +95,10 @@ (let ((length (string-length haystack))) (define (split acc offset n) (if (>= offset length) - (reverse acc) + (reverse! acc) (let ((i (lookahead haystack offset))) (if (or (eq? i #f) (= 0 n)) - (reverse (cons (substring haystack offset length) acc)) + (reverse! (cons (substring haystack offset length) acc)) (split (cons (substring haystack offset i) acc) (+ i 1) (- n 1)))))) (split '() 0 n))) @@ -168,10 +168,10 @@ (define (string-rtrim predicate s) (if (string=? s "") "" - (let loop ((s' (reverse (string->list s)))) + (let loop ((s' (reverse! (string->list s)))) (if (predicate (car s')) (loop (cdr s')) - (list->string (reverse s')))))) + (list->string (reverse! s')))))) (assert (string=? "" (string-rtrim char-whitespace? ""))) (assert (string=? "foo" (string-rtrim char-whitespace? "foo "))) |