scm: Add string-delete.
[mes.git] / 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)))))