changeset 3704:8488ad8eb302

(Fload): Use call5.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Jun 1993 00:01:50 +0000
parents 6930e8f81c88
children 309c27256ceb
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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 */