streams: use ~a for self string.

* stream.c (parse_mode, open_file, open_fileno): Since self
is a string, use ~a to print it, or else quotes
will appear.

1 files changed, 3 insertions, 3 deletions

diff --git a/stream.c b/stream.c
index be6262b1..e0916d18 100644
--- a/stream.c
+++ b/stream.c
@@ -1604,7 +1604,7 @@ struct stdio_mode parse_mode(val mode_str, struct stdio_mode m_dfl, val self)
 {
   struct stdio_mode m = do_parse_mode(mode_str, m_dfl, self);
   if (m.malformed)
-    uw_throwf(file_error_s, lit("~s: invalid mode string ~s"), self,
+    uw_throwf(file_error_s, lit("~a: invalid mode string ~s"), self,
               mode_str, nao);
   return m;
 }
@@ -4261,7 +4261,7 @@ again:
 
     return make_gzio_stream(f, -1, path, m.write);
 #else
-    uw_ethrowf(file_error_s, lit("~s: not built with zlib support"),
+    uw_ethrowf(file_error_s, lit("~a: not built with zlib support"),
                self, nao);
 #endif
   }
@@ -4303,7 +4303,7 @@ val open_fileno(val fd, val mode_str)
     return make_gzio_stream(f, fdn, format(nil, lit("fd ~d"), fd, nao),
                             m.write);
 #else
-    uw_ethrowf(file_error_s, lit("~s: not built with zlib support"),
+    uw_ethrowf(file_error_s, lit("~a: not built with zlib support"),
                self, nao);
 #endif
   }