projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6ffca4b
)
scm: Add string-delete.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Tue, 17 Jan 2017 17:48:28 +0000
(18:48 +0100)
committer
Jan 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
patch
|
blob
|
history
diff --git
a/module/srfi/srfi-13.mes
b/module/srfi/srfi-13.mes
index c4e34c46af0df5588ba00561be7f1b68f73395fa..caf31a00714a017bf5c9f1c0558d106788bd90c5 100644
(file)
--- a/
module/srfi/srfi-13.mes
+++ b/
module/srfi/srfi-13.mes
@@
-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)))))