(Fload): Use call5.

src/lread.c

@@ -326,16 +326,7 @@ Return t if file exists.")
   /* If file name is magic, call the handler.  */
   handler = Ffind_file_name_handler (str);
   if (!NILP (handler))
-    {
-      Lisp_Object args[6];
-      args[0] = handler;
-      args[1] = Qload;
-      args[2] = str;
-      args[3] = noerror;
-      args[4] = nomessage;
-      args[5] = nosuffix;
-      return Ffuncall (6, args);
-    }
+    return call5 (handler, Qload, str, noerror, nomessage, nosuffix);
 
   /* Avoid weird lossage with null string as arg,
      since it would try to load a directory as a Lisp file */