X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgeneral-scheme.cc;h=11fb65790f4846027bcf7e134f99d54236777593;hb=a5a4028d46d8ff4c9f35b3c8f3ed510b120cbd95;hp=ffe6875d63486e2f4a68457a85244640a87e2959;hpb=4b769ac72e76940dd0aa40d257a1279441926f2f;p=lilypond.git

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index ffe6875d63..11fb65790f 100644
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -277,8 +277,6 @@ LY_DEFINE (ly_effective_prefix, "ly:effective-prefix",
   return scm_makfrom0str (prefix_directory.to_str0 ());
 }
 
-
-
 LY_DEFINE (ly_chain_assoc_get, "ly:chain-assoc-get",
 	   2, 1, 0, (SCM key, SCM achain, SCM dfault),
 	   "Return value for @var{key} from a list of alists @var{achain}. Return @var{dfault} "
@@ -295,3 +293,14 @@ LY_DEFINE (ly_chain_assoc_get, "ly:chain-assoc-get",
   else
     return dfault == SCM_UNDEFINED ? SCM_BOOL_F : dfault;
 }
+
+LY_DEFINE (ly_port_move, "ly:port-move",
+	   2, 0, 0, (SCM fd, SCM port),
+	   "Move file descriptor FD to PORT.")
+{
+  SCM_ASSERT_TYPE (scm_port_p (port), port, SCM_ARG1, __FUNCTION__, "port");
+  SCM_ASSERT_TYPE (scm_integer_p (fd), fd, SCM_ARG1, __FUNCTION__, "fd");
+  freopen (ly_scm2newstr (scm_port_filename (port), 0), "a",
+	   fdopen (scm_to_int (fd), "a"));
+  return SCM_UNSPECIFIED;
+}