diff options
author | Marius Vollmer <mvo@zagadka.de> | 1997-10-25 21:54:12 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 1997-10-25 21:54:12 +0000 |
commit | 784468285070da809138a591aebcd4938778c424 (patch) | |
tree | dcf74d20e820bfd6394a23b11617b50e352ebc9e /libguile/unif.c | |
parent | 7fbd77df87d49d1e4d5717a36964380c9cd88047 (diff) | |
download | guile-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.c | 2 |
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; |