compat: Add 'string-for-each' for Mes.
* gash/compat.scm [mes] (string-for-each): New procedure.
This commit is contained in:
parent
1b5ba1e9ec
commit
469cdb60fc
|
@ -86,6 +86,7 @@
|
||||||
make-parameter
|
make-parameter
|
||||||
parameterize
|
parameterize
|
||||||
set-port-line!
|
set-port-line!
|
||||||
|
string-for-each
|
||||||
string-concatenate-reverse
|
string-concatenate-reverse
|
||||||
string-every
|
string-every
|
||||||
string-any
|
string-any
|
||||||
|
@ -143,6 +144,9 @@
|
||||||
((procedure? pred) pred)
|
((procedure? pred) pred)
|
||||||
(else (error "Invalid character predicate."))))
|
(else (error "Invalid character predicate."))))
|
||||||
|
|
||||||
|
(define (string-for-each proc str)
|
||||||
|
(for-each proc (string->list str)))
|
||||||
|
|
||||||
(define (string-every pred str)
|
(define (string-every pred str)
|
||||||
((@ (srfi srfi-1) every) (char-pred pred) (string->list str)))
|
((@ (srfi srfi-1) every) (char-pred pred) (string->list str)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue