Fix wrong uses of ~s for function name string.

* ffi.c (make_ffi_type_enum): Use ~a for function name rather
than ~s because it's a string which is quoted under ~s.

* lib.c (chk_xalloc, string_extend, find_symbol,
intern_fallback): Likewise.

* stream.c (open_process, run): Likewise.

* sysif.c (exec_wrap, setgroups_wrap, dlclose_wrap): Likewise.

1 files changed, 3 insertions, 3 deletions

diff --git a/stream.c b/stream.c
index 9d67745f..1b6f831a 100644
--- a/stream.c
+++ b/stream.c
@@ -3949,7 +3949,7 @@ val open_process(val name, val mode_str, val args)
   fds_swizzle(&sfds, (input ? FDS_IN : FDS_OUT) | FDS_ERR);
 
   if (nargs < 0 || nargs == INT_MAX)
-    uw_throwf(error_s, lit("~s: argument list overflow"), self, nao);
+    uw_throwf(error_s, lit("~a: argument list overflow"), self, nao);
 
   argv = coerce(char **, chk_xalloc(nargs + 1, sizeof *argv, self));
 
@@ -4145,7 +4145,7 @@ static val run(val name, val args)
   nargs = c_num(length(args)) + 1;
 
   if (nargs < 0 || nargs == INT_MAX)
-    uw_throwf(error_s, lit("~s: argument list overflow"), self, nao);
+    uw_throwf(error_s, lit("~a: argument list overflow"), self, nao);
 
   argv = coerce(char **, chk_xalloc(nargs + 1, sizeof *argv, self));
 
@@ -4226,7 +4226,7 @@ static val run(val command, val args)
   fds_swizzle(&sfds, FDS_IN | FDS_OUT | FDS_ERR);
 
   if (nargs < 0 || nargs == INT_MAX)
-    uw_throwf(error_s, lit("~s: argument list overflow"), self, nao);
+    uw_throwf(error_s, lit("~a: argument list overflow"), self, nao);
 
   wargv = coerce(const wchar_t **, chk_xalloc(nargs + 1, sizeof *wargv, self));