mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Declare scm_i_open_file to silence a warning

Browse source 
* libguile/fports.c (scm_i_open_file): Declare.
This commit is contained in:
Andy Wingo 2013-11-27 19:36:46 +01:00
parent 05326efbb1
commit 6a9d9e3a62
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/fports.c
View file

@ -470,6 +470,8 @@ scm_open_file (SCM filename, SCM mode)
static SCM k_guess_encoding = SCM_UNDEFINED; static SCM k_guess_encoding = SCM_UNDEFINED;
static SCM k_encoding = SCM_UNDEFINED; static SCM k_encoding = SCM_UNDEFINED;
SCM_INTERNAL SCM scm_i_open_file (SCM, SCM, SCM);
SCM_DEFINE (scm_i_open_file, "open-file", 2, 0, 1, SCM_DEFINE (scm_i_open_file, "open-file", 2, 0, 1,
(SCM filename, SCM mode, SCM keyword_args), (SCM filename, SCM mode, SCM keyword_args),
"Open the file whose name is @var{filename}, and return a port\n" "Open the file whose name is @var{filename}, and return a port\n"