substring-index

[procedure] substring-index s1 s2 [start]

[procedure] substring-index-ci s1 s2 [start]

Chicken: searches s2 in s1 and returns index if found.

These are equivalent ot SRFI-13's string-contains and string-contains-ci except that substring-index[-ci] don't take extra three optional arguments.