diff options
author | Kevin Ryde <user42@zip.com.au> | 2007-01-15 23:42:45 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2007-01-15 23:42:45 +0000 |
commit | 23d72566286b3b2b6fec9548cbfdb5d79685e973 (patch) | |
tree | c6ca72b9de559edc3c14033a1b6fcfd9578b7519 /libguile/print.c | |
parent | cea95a2fa1f2ec810f0322a038a3af33da309e4a (diff) | |
download | guile-23d72566286b3b2b6fec9548cbfdb5d79685e973.tar.gz |
merge from 1.8
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 6 |
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 |