mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +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))) if (SCM_BUF0 & (SCM_CAR (port) = scm_tc16_fport | scm_mode_bits (mode)))
scm_setbuf0 (port); scm_setbuf0 (port);
SCM_SETSTREAM (port, (SCM)f); SCM_SETSTREAM (port, (SCM)f);
SCM_PTAB_ENTRY (port)->file_name = scm_makfrom0str (file); SCM_PTAB_ENTRY (port)->file_name = filename;
} }
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
return port; return port;
@ -234,8 +234,6 @@ prinfport (exp, port, writing)
int writing; int writing;
#endif #endif
{ {
/*
perhaps this isn't needed.
SCM name; SCM name;
char * c; char * c;
if (SCM_CLOSEDP (exp)) if (SCM_CLOSEDP (exp))
@ -252,8 +250,6 @@ prinfport (exp, port, writing)
} }
scm_prinport (exp, port, c); scm_prinport (exp, port, c);
*/
scm_prinport (exp, port, "file");
return !0; return !0;
} }