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

object.

diff --git a/libguile/fports.c b/libguile/fports.c
index 5e7218d..1cc25de 100644 (file)
--- 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;
 }