segfault in guile 1.6.7

[Alexey Voinov]

hi.

There's a bug in guile srfi-13 implementation. 

Steps to reproduce are:
$ guile
guile> (use-modules (srfi srfi-13))
guile> (string-index (string #\a) char-numeric?)
#f
guile> (string-index (string (integer->char 209)) char-numeric?)
zsh: 2760 segmentation fault  guile

I haven't checked if this bug is still present in cvs HEAD.
Patch attached.

-- 
Best Regards!
Alexey Voinov
             
address@hidden
address@hidden

guile-1.6.7-alt-unsigned.patch
Description: Text document

pgpwwu7dtuzon.pgp
Description: PGP signature