# HG changeset patch # User Richard M. Stallman # Date 1187488575 0 # Node ID 617c0965e1f4c08d8cb28310810a5b4a92892acd # Parent 4832d8e5a3269b9916d2c00071ed0a3d81eab068 (Ffunction, Fquote): Signal error if not 1 argument. diff -r 4832d8e5a326 -r 617c0965e1f4 src/eval.c --- a/src/eval.c Sun Aug 19 00:24:21 2007 +0000 +++ b/src/eval.c Sun Aug 19 01:56:15 2007 +0000 @@ -202,6 +202,8 @@ extern Lisp_Object Qrisky_local_variable; +extern Lisp_Object Qfunction; + static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN; @@ -539,7 +541,7 @@ register Lisp_Object val, sym; struct gcpro gcpro1; - if (NILP(args)) + if (NILP (args)) return Qnil; args_left = args; @@ -564,6 +566,8 @@ (args) Lisp_Object args; { + if (!NILP (Fcdr (args))) + xsignal2 (Qwrong_number_of_arguments, Qquote, Flength (args)); return Fcar (args); } @@ -575,6 +579,8 @@ (args) Lisp_Object args; { + if (!NILP (Fcdr (args))) + xsignal2 (Qwrong_number_of_arguments, Qfunction, Flength (args)); return Fcar (args); }