(Fcall_process): Check type of process cmd args earlier on.

diff --git a/src/callproc.c b/src/callproc.c
index 7035aed4f506b947c0147cab89ee9225a8241a26..6a1cfbc2c460cad8c7b3a8937c1be4c25ffebf51 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -245,6 +245,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
       {
        int must_encode = 0;
 
+       for (i = 4; i < nargs; i++)
+         CHECK_STRING (args[i], i);
+
        for (i = 4; i < nargs; i++)
          if (STRING_MULTIBYTE (args[i]))
            must_encode = 1;
@@ -401,8 +404,6 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     {
       register int i;
 
-      for (i = 4; i < nargs; i++) CHECK_STRING (args[i], i);
-
       if (! CODING_REQUIRE_ENCODING (&argument_coding))
        {
          for (i = 4; i < nargs; i++)