X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/82892beda5c053715bc3ec7063af4a129f52c5f9..9918cf630ddac0779032722aa76aad796c8ea910:/libguile/gh_io.c

diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index 567294991..9e19f4d47 100644
--- a/libguile/gh_io.c
+++ b/libguile/gh_io.c
@@ -50,6 +50,12 @@ gh_display (SCM x)
   scm_display (x, scm_current_output_port ());
 }
 
+void 
+gh_write (SCM x)
+{
+  scm_write (x, scm_current_output_port ());
+}
+
 void 
 gh_newline ()
 {