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

* ports.h (scm_port_table): put back file_name, it will be used to

Browse source 
support debugging.  Undo related changes in fports.c, ioext.c,
ports.c, gc.c.
This commit is contained in:
Gary Houston 1996-09-17 02:09:50 +00:00
parent 19639113d1
commit ebf7394e72
6 changed files with 15 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ioext.c
View file

@ -182,7 +182,7 @@ scm_sys_duplicate_port (oldpt, modes)
if (SCM_BUF0 & (SCM_CAR (newpt) = scm_tc16_fport | scm_mode_bits (SCM_CHARS (modes))))
scm_setbuf0 (newpt);
SCM_SETSTREAM (newpt, (SCM)f);
/* SCM_PTAB_ENTRY (newpt)->file_name = SCM_PTAB_ENTRY (oldpt)->file_name;*/
SCM_PTAB_ENTRY (newpt)->file_name = SCM_PTAB_ENTRY (oldpt)->file_name;
}
SCM_ALLOW_INTS;
return newpt;