mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* ioext.c (scm_redirect_port): Replaced scm_ptobfuns -->

Browse source 
scm_ptob_descriptor.
This commit is contained in:
Mikael Djurfeldt 1999-07-24 23:09:28 +00:00
parent 3637134f14
commit 16019956ab
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ioext.c
View file

@ -337,7 +337,7 @@ scm_redirect_port (old, new)
{ {
scm_port *pt = SCM_PTAB_ENTRY (new); scm_port *pt = SCM_PTAB_ENTRY (new);
scm_port *old_pt = SCM_PTAB_ENTRY (old); scm_port *old_pt = SCM_PTAB_ENTRY (old);
scm_ptobfuns *ptob = &scm_ptobs[SCM_PTOBNUM (new)]; scm_ptob_descriptor *ptob = &scm_ptobs[SCM_PTOBNUM (new)];
/* must flush to old fdes. */ /* must flush to old fdes. */
if (pt->rw_active == SCM_PORT_WRITE) if (pt->rw_active == SCM_PORT_WRITE)