X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgeneral-scheme.cc;h=a630fd90f534768f8592e24d01b49bfec48e86b6;hb=a1e77b006a67e9047cb13610e5b71956817f97c0;hp=e74bf0bf1627b2a8e96ed232d923194a9cd396c6;hpb=7e97458b4f400c3f0c7cce7f036bec89903d2814;p=lilypond.git

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index e74bf0bf16..a630fd90f5 100644
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -379,13 +379,16 @@ LY_DEFINE (ly_stderr_redirect, "ly:stderr-redirect",
   LY_ASSERT_TYPE (scm_is_string, file_name, 1);
 
   string m = "w";
+  string f = ly_scm2string (file_name);
   FILE *stderrfile;
   if (mode != SCM_UNDEFINED && scm_string_p (mode))
     m = ly_scm2string (mode);
   /* dup2 and (fileno (current-error-port)) do not work with mingw'c
      gcc -mwindows.  */
   fflush (stderr);
-  stderrfile = freopen (ly_scm2string (file_name).c_str (), m.c_str (), stderr);
+  stderrfile = freopen (f.c_str (), m.c_str (), stderr);
+  if (!stderrfile)
+    error (_f ("failed redirecting stderr to `%s'", f.c_str ()));
   return SCM_UNSPECIFIED;
 }