From c5f9623c5554e63f88eef440eea9787b00722c3e Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 3 Jan 2018 06:53:02 +0100 Subject: [PATCH] mes: Add string-drop-right. * module/srfi/srfi-13.mes (string-drop-right): New function. --- module/srfi/srfi-13.mes | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/module/srfi/srfi-13.mes b/module/srfi/srfi-13.mes index a801d7db..6621b54c 100644 --- 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))))))