mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

* fports.c (scm_open_file): Don't call scm_makfrom0str on a scheme

Browse source 
object.
This commit is contained in:
Mikael Djurfeldt 1996-09-18 19:33:43 +00:00
parent ac46ab165a
commit 96937708a9
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/fports.c
View file

@ -185,7 +185,7 @@ scm_open_file (filename, modes)
if (SCM_BUF0 & (SCM_CAR (port) = scm_tc16_fport | scm_mode_bits (mode)))
scm_setbuf0 (port);
SCM_SETSTREAM (port, (SCM)f);
SCM_PTAB_ENTRY (port)->file_name = scm_makfrom0str (file);
SCM_PTAB_ENTRY (port)->file_name = filename;
}
SCM_ALLOW_INTS;
return port;
@ -234,8 +234,6 @@ prinfport (exp, port, writing)
int writing;
#endif
{
/*
perhaps this isn't needed.
SCM name;
char * c;
if (SCM_CLOSEDP (exp))
@ -252,8 +250,6 @@ prinfport (exp, port, writing)
}
scm_prinport (exp, port, c);
*/
scm_prinport (exp, port, "file");
return !0;
}