mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

'primitive-load' opens files with O_CLOEXEC.

Browse source 
Fixes <https://bugs.gnu.org/57567>.

* libguile/load.c (scm_primitive_load): Add "e" flag to
'scm_open_file_with_encoding' argument.
* NEWS: Update.
This commit is contained in:
Ludovic Courtès 2022-09-07 17:58:40 +02:00
parent a356ceebee
commit 0aa1a9976f
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/load.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-1996,1998-2001,2004,2006,2008-2019
/* Copyright 1995-1996,1998-2001,2004,2006,2008-2019,2022
Free Software Foundation, Inc.
This file is part of Guile.
@ -106,7 +106,7 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
SCM port;
port = scm_open_file_with_encoding (filename,
scm_from_latin1_string ("r"),
scm_from_latin1_string ("re"),
SCM_BOOL_T, /* guess_encoding */
scm_from_latin1_string ("UTF-8"));