artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Support predicate with string-index.

Browse source 
* module/srfi/srfi-13.mes (string-index): Support predicate.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-19 00:51:23 +02:00
parent 8f4b64fda7
commit 20b3c349bf
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/srfi/srfi-13.mes
View file

@ -66,11 +66,11 @@
(define (string-index s pred . rest) (define (string-index s pred . rest)
(let* ((start (and (pair? rest) (car rest))) (let* ((start (and (pair? rest) (car rest)))
(end (and start (pair? (cdr rest)) (cadr rest)))) (end (and start (pair? (cdr rest)) (cadr rest)))
(if (not (char? pred)) (error "string-index: not supported: pred=" pred)) (pred (if (char? pred) (lambda (c) (eq? c pred)) pred)))
(if start (error "string-index: not supported: start=" start)) (if start (error "string-index: not supported: start=" start))
(if end (error "string-index: not supported: end=" end)) (if end (error "string-index: not supported: end=" end))
(let loop ((lst (string->list s)) (i 0)) (let loop ((lst (string->list s)) (i 0))
(if (null? lst) #f (if (null? lst) #f
(if (eq? (car lst) pred) i (if (pred (car lst)) i
(loop (cdr lst) (1+ i))))))) (loop (cdr lst) (1+ i)))))))