summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2007-01-15 23:42:45 +0000
committerKevin Ryde <user42@zip.com.au>2007-01-15 23:42:45 +0000
commit23d72566286b3b2b6fec9548cbfdb5d79685e973 (patch)
treec6ca72b9de559edc3c14033a1b6fcfd9578b7519 /libguile/print.c
parentcea95a2fa1f2ec810f0322a038a3af33da309e4a (diff)
downloadguile-23d72566286b3b2b6fec9548cbfdb5d79685e973.tar.gz
merge from 1.8
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c
index efd51ce06..8bed72297 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -926,12 +926,14 @@ scm_write (SCM obj, SCM port)
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_write);
scm_prin1 (obj, port, 1);
+#if 0
#ifdef HAVE_PIPE
# ifdef EPIPE
if (EPIPE == errno)
scm_close_port (port);
# endif
#endif
+#endif
return SCM_UNSPECIFIED;
}
@@ -947,12 +949,14 @@ scm_display (SCM obj, SCM port)
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_display);
scm_prin1 (obj, port, 0);
+#if 0
#ifdef HAVE_PIPE
# ifdef EPIPE
if (EPIPE == errno)
scm_close_port (port);
# endif
#endif
+#endif
return SCM_UNSPECIFIED;
}
@@ -1084,12 +1088,14 @@ SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0,
SCM_VALIDATE_OPORT_VALUE (2, port);
scm_putc ((int) SCM_CHAR (chr), SCM_COERCE_OUTPORT (port));
+#if 0
#ifdef HAVE_PIPE
# ifdef EPIPE
if (EPIPE == errno)
scm_close_port (port);
# endif
#endif
+#endif
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME