diff options
Diffstat (limited to 'libguile/genio.c')
-rw-r--r-- | libguile/genio.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/genio.c b/libguile/genio.c index 1b04a0ce9..6db2cb574 100644 --- a/libguile/genio.c +++ b/libguile/genio.c @@ -59,7 +59,7 @@ scm_putc (c, port) SCM port; { scm_sizet i = SCM_PTOBNUM (port); - SCM_SYSCALL ((scm_ptobs[i].fputc) (c, SCM_STREAM (port))); + SCM_SYSCALL ((scm_ptobs[i].fputc) (c, port)); } void @@ -68,7 +68,7 @@ scm_puts (s, port) SCM port; { scm_sizet i = SCM_PTOBNUM (port); - SCM_SYSCALL ((scm_ptobs[i].fputs) (s, SCM_STREAM (port))); + SCM_SYSCALL ((scm_ptobs[i].fputs) (s, port)); #ifdef TRANSCRIPT_SUPPORT if (scm_trans && (port == def_outp || port == cur_errp)) SCM_SYSCALL (fputs (s, scm_trans)); @@ -82,7 +82,7 @@ scm_lfwrite (ptr, size, port) SCM port; { scm_sizet i = SCM_PTOBNUM (port); - SCM_SYSCALL (scm_ptobs[i].fwrite(ptr, size, 1, SCM_STREAM (port))); + SCM_SYSCALL (scm_ptobs[i].fwrite (ptr, size, 1, port)); #ifdef TRANSCRIPT_SUPPORT if (scm_trans && (port == def_outp || port == cur_errp)) SCM_SYSCALL (fwrite (ptr, size, 1, scm_trans)); @@ -95,7 +95,7 @@ scm_fflush (port) SCM port; { scm_sizet i = SCM_PTOBNUM (port); - (scm_ptobs[i].fflush) (SCM_STREAM (port)); + (scm_ptobs[i].fflush) (port); } @@ -133,7 +133,7 @@ scm_getc (port) while (n == -1 && errno == EINTR); } #endif - SCM_SYSCALL (c = (scm_ptobs[i].fgetc) (f)); + SCM_SYSCALL (c = (scm_ptobs[i].fgetc) (port)); } if (c == '\n') |