scm: Add string-delete.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 17 Jan 2017 17:48:28 +0000 (18:48 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 17 Jan 2017 17:48:28 +0000 (18:48 +0100)
* module/srfi/srfi-13.mes (string-delete): New function.

module/srfi/srfi-13.mes

index c4e34c46af0df5588ba00561be7f1b68f73395fa..caf31a00714a017bf5c9f1c0558d106788bd90c5 100644 (file)
@@ -58,3 +58,8 @@
 
 (define (string-drop s n)
   (list->string (list-tail (string->list s) n)))
+
+(define (string-delete pred s)
+  (let ((p (if (procedure? pred) pred
+               (lambda (c) (not (eq? pred c))))))
+    (list->string (filter p (string->list s)))))