# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739929710 0
# Node ID 8488ad8eb3028445a64fc3c8cb26ece7b63272e2
# Parent  6930e8f81c88afd81f0fc39af6ffa3a6ebd5300b
(Fload): Use call5.

diff -r 6930e8f81c88 -r 8488ad8eb302 src/lread.c
--- 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 */