diff options
-rw-r--r-- | libguile/fports.c | 6 |
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; } |