# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868689686 0
# Node ID 862d3328f79dff72d0212cd9b08dad78ae1ec1bb
# Parent  db49bcffa9b24554d1acf16f8985aa220ea4edad
(Fml_arg): Add missing Fread_string arguments.

diff -r db49bcffa9b2 -r 862d3328f79d src/mocklisp.c
--- a/src/mocklisp.c	Sat Jul 12 06:41:07 1997 +0000
+++ b/src/mocklisp.c	Sat Jul 12 06:41:26 1997 +0000
@@ -120,7 +120,7 @@
      Lisp_Object n, prompt;
 {
   if (EQ (Vmocklisp_arguments, Qinteractive))
-    return Fread_string (prompt, Qnil);
+    return Fread_string (prompt, Qnil, Qnil, Qnil);
   CHECK_NUMBER (n, 0);
   XSETINT (n, XINT (n) - 1);	/* Mocklisp likes to be origin-1 */
   return Fcar (Fnthcdr (n, Vmocklisp_arguments));