From 6a9d9e3a625f6fc844eed7c74339df1c95981a38 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 27 Nov 2013 19:36:46 +0100
Subject: [PATCH] Declare scm_i_open_file to silence a warning

* libguile/fports.c (scm_i_open_file): Declare.
---
 libguile/fports.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libguile/fports.c b/libguile/fports.c
index 13d1dd732..dc3d45ce4 100644
--- 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"