# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 857070515 0
# Node ID 4a6c430103885cada690dcf595238500b9f718b0
# Parent  fdad8ea24563e7a765d49e9a5fd07217c31d1393
(Fload): Call Vload_source_file_function with 4 args.

diff -r fdad8ea24563 -r 4a6c43010388 src/lread.c
--- a/src/lread.c	Thu Feb 27 11:15:55 1997 +0000
+++ b/src/lread.c	Thu Feb 27 19:08:35 1997 +0000
@@ -483,7 +483,7 @@
       if (!NILP (Vload_source_file_function))
 	{
 	  close (fd);
-	  return call3 (Vload_source_file_function, found, file,
+	  return call4 (Vload_source_file_function, found, file,
 			NILP (noerror) ? Qnil : Qt,
 			NILP (nomessage) ? Qnil : Qt);
 	}