bug#38348: [2.9.5] Stack overflow when stdout is closed

[Ludovic Courtès]

Hi,

Ludovic Courtès <address@hidden> skribis:

> Guile 2.9.5 segfaults from a C stack overflow when you start it with a
> closed stdout:
>
>   /gnu/store/7vwf3nhiacxc2jgcg43w22px4ds3rb36-guile-next-2.9.5/bin/guile -c 
> '(pk 1)' >&-
>
> The backtrace looks like this:
>
> (gdb) bt -30
> #312742 0x00007f2ea9b2961f in scm_error (key=wrong-type-arg, 
> subr=subr@entry=0x0, message=message@entry=0x7f2ea9bcafb6 "Wrong type 
> (expecting ~A): ~S", 
>     args=("output port" #f), rest=rest@entry=(#f)) at error.c:62
> #312743 0x00007f2ea9b299a4 in scm_wrong_type_arg_msg (subr=subr@entry=0x0, 
> pos=pos@entry=0, bad_value=bad_value@entry=#f, 
>     szMessage=szMessage@entry=0x7f2ea9bc98a5 "output port") at error.c:275
> #312744 0x00007f2ea9b755bd in scm_puts (s=s@entry=0x7f2ea9bd92c0 "Pre-boot 
> error; key: ", port=port@entry=#f) at ports.c:3625

In 2.9.6 the stack overflow is fixed (yay!) but we still get the error
above:

--8<---------------cut here---------------start------------->8---
$ guile --version >&-
Error while printing pre-boot error: wrong-type-arg
Abortita(nekropsio elŝutita)
$ guile --version
guile (GNU Guile) 2.9.6
Copyright (C) 2019 Free Software Foundation, Inc.

License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
--8<---------------cut here---------------end--------------->8---

Ludo’.