summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>1997-10-25 21:54:12 +0000
committerMarius Vollmer <mvo@zagadka.de>1997-10-25 21:54:12 +0000
commit784468285070da809138a591aebcd4938778c424 (patch)
treedcf74d20e820bfd6394a23b11617b50e352ebc9e /libguile/unif.c
parent7fbd77df87d49d1e4d5717a36964380c9cd88047 (diff)
downloadguile-784468285070da809138a591aebcd4938778c424.tar.gz
* filesys.c (scm_close, set_element, get_element, scm_chown,
scm_chmod, scm_stat, scm_truncate_file, scm_fcntl, scm_fsync): Use SCM_COERCE_OUTPORT to cope with the printstate/port magic. * ports.c (scm_port_revealed, scm_set_port_revealed_x, scm_close_port, scm_port_line, scm_set_port_line_x, scm_port_column, scm_set_port_column_x, scm_port_filename, scm_set_port_filename_x, scm_port_mode, scm_close_all_ports_except, scm_set_current_output_port, scm_set_current_error_port): Likewise * ioext.c (scm_redirect_port, scm_dup_to_fdes, scm_freopen, scm_ftell, scm_fileno, scm_isatty_p, scm_primitive_move_to_fdes): Likewise * posix.c (scm_ttyname, scm_tcgetpgrp, scm_tcsetpgrp): Likewise * backtrace.c (display_backtrace_body): Likewise * fports (scm_setvbuf): Likewise * socket.c (scm_getsockopt, scm_setsockopt, scm_shutdown, scm_connect, scm_bind, scm_listen, scm_accept, scm_getsockname, scm_getpeername, scm_send, scm_sendto): Likewise * unif.c (scm_uniform_array_write): Likewise
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index d6bf1da80..9a675954a 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1588,6 +1588,8 @@ scm_uniform_array_write (v, port_or_fd, start, end)
long cstart = 0;
long cend;
+ port_or_fd = SCM_COERCE_OUTPORT (port_or_fd);
+
SCM_ASRTGO (SCM_NIMP (v), badarg1);
if (SCM_UNBNDP (port_or_fd))
port_or_fd = scm_cur_outp;