diff src/lread.c @ 3704:8488ad8eb302

(Fload): Use call5.

--- a/src/lread.c	Sun Jun 13 00:01:22 1993 +0000
+++ b/src/lread.c	Sun Jun 13 00:01:50 1993 +0000
@@ -326,16 +326,7 @@
   /* 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 */