mes: Add string-drop-right.

* module/srfi/srfi-13.mes (string-drop-right): New function.
2018-01-03 06:53:02 +01:00 · 2018-01-03 06:53:02 +01:00 · c5f9623c55
parent 1f8a217694
commit c5f9623c55
1 changed files with 4 additions and 0 deletions
--- a/module/srfi/srfi-13.mes
+++ b/module/srfi/srfi-13.mes
@ -59,6 +59,10 @@
 (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))))))