mes: Add string-drop-right.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 3 Jan 2018 05:53:02 +0000 (06:53 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 3 Jan 2018 05:53:02 +0000 (06:53 +0100)
* module/srfi/srfi-13.mes (string-drop-right): New function.

module/srfi/srfi-13.mes

index a801d7db0bed15089004eba12745267b632f8505..6621b54c59735f2f18374e2e8ede32ae96c135c0 100644 (file)
 (define (string-drop s n)
   (list->string (list-tail (string->list s) n)))
 
+(define (string-drop-right s n)
+  (let ((length (string-length s)))
+    (list->string (list-head (string->list s) (- length n)))))
+
 (define (string-delete pred s)
   (let ((p (if (procedure? pred) pred
                (lambda (c) (not (eq? pred c))))))