Jan Nieuwenhuizen <janneke@gnu.org> writes:

> Found it.  It turns out that
>
>     guile -c '(string-contains "" "a")'
>
> hangs with guile CVS.  See fix below.

Thanks, excellent!  What about the variant below?  It is more
'logical' I think, immediately returning false when s1 is shorter than
s2.