From 82ea7c763b5f6b030583ef354263b33855111160 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 1 Mar 2017 17:34:41 +0100
Subject: [PATCH] Fix open-file mode misinterpretation

* libguile/fports.c (scm_i_mode_to_open_flags): Validate that argument
  is string.  Fixes #25498.
---
 libguile/fports.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libguile/fports.c b/libguile/fports.c
index f79b4a3a8..94092b872 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -159,6 +159,9 @@ scm_i_mode_to_open_flags (SCM mode, int *is_binary, const char *FUNC_NAME)
   int flags = 0;
   const char *md, *ptr;
 
+  if (SCM_UNLIKELY (!scm_is_string (mode)))
+    scm_out_of_range (FUNC_NAME, mode);
+
   if (SCM_UNLIKELY (!scm_i_try_narrow_string (mode)))
     scm_out_of_range (FUNC_NAME, mode);