mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* ioext.c (scm_duplicate_port): bug fix: don't try to make the

Browse source 
new port unbuffered until its stream has been set.
This commit is contained in:
Gary Houston 1997-06-22 08:11:58 +00:00
parent 89ea5b7cdf
commit c85e73d329
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Sun Jun 22 04:00:32 1997 Gary Houston <ghouston@actrix.gen.nz>
* ioext.c (scm_duplicate_port): bug fix: don't try to make the
new port unbuffered until its stream has been set.
Sat Jun 21 18:44:03 1997 Gary Houston <ghouston@actrix.gen.nz>
* ports.h: new prototype.

2
libguile/ioext.c
View file

@ -271,9 +271,9 @@ scm_duplicate_port (oldpt, modes)
pt = scm_add_to_port_table (newpt);
SCM_SETPTAB_ENTRY (newpt, pt);
SCM_SETCAR (newpt, scm_tc16_fport | scm_mode_bits (SCM_ROCHARS (modes)));
SCM_SETSTREAM (newpt, (SCM)f);
if (SCM_BUF0 & SCM_CAR (newpt))
scm_setbuf0 (newpt);
SCM_SETSTREAM (newpt, (SCM)f);
SCM_PTAB_ENTRY (newpt)->file_name = SCM_PTAB_ENTRY (oldpt)->file_name;
}
SCM_ALLOW_INTS;