(Fml_arg): Add missing Fread_string arguments.

diff --git a/src/mocklisp.c b/src/mocklisp.c
index ad6ae9908c742aac01faf71e221fafdcc33b2f85..3b0276f9ce3a94f299bf240a0af30ce240d4565a 100644 (file)
--- a/src/mocklisp.c
+++ b/src/mocklisp.c
@@ -120,7 +120,7 @@ DEFUN ("ml-arg", Fml_arg, Sml_arg, 1, 2, 0,
      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));