bug#25498: Crash in open-file; patch attached

[Ludovic Courtès]

Hi Linas,

Linas Vepstas <address@hidden> skribis:

> The following crashes instantly; I used single-quotes by accident.
>
> (open-file "/tmp/lg" 'w')
>
> Stack:
>
> Enter `,help' for help.
> scheme@(guile-user)> (open-file "/tmp/lg" 'w')
>
> Thread 1 "guile" received signal SIGSEGV, Segmentation fault.
> scm_i_mode_to_open_flags (address@hidden,
>     address@hidden,
>     address@hidden "open-file")
>     at ../../libguile/fports.c:168

What version of Guile are you using?  With 2.0.13, I get:

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> (open-file "/tmp/lg" 'w')
ERROR: In procedure open-file:
ERROR: In procedure open-file: Value out of range: w'
--8<---------------cut here---------------end--------------->8---

Ludo’.