Declare scm_i_open_file to silence a warning

* libguile/fports.c (scm_i_open_file): Declare.

diff --git a/libguile/fports.c b/libguile/fports.c
index 13d1dd7..dc3d45c 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -470,6 +470,8 @@ scm_open_file (SCM filename, SCM mode)
 static SCM k_guess_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 filename, SCM mode, SCM keyword_args),
            "Open the file whose name is @var{filename}, and return a port\n"