*** empty log message ***

[bpt/guile.git] / libguile / gh_io.c

diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index 5672949..9e19f4d 100644 (file)
--- 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 ()
 {