summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/fports.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/fports.c b/libguile/fports.c
index 5e7218d1d..1cc25de2a 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -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;
}