Commit 1283140e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Ffunction, Fquote): Signal error if not 1 argument.

parent 7e48dd52
2007-08-19 Richard Stallman <rms@gnu.org>
* eval.c (Ffunction, Fquote): Signal error if not 1 argument.
2007-08-19 Andreas Schwab <schwab@suse.de> 2007-08-19 Andreas Schwab <schwab@suse.de>
   
* alloc.c (pure): Round PURESIZE up. * alloc.c (pure): Round PURESIZE up.
......
...@@ -202,6 +202,8 @@ Lisp_Object Vmacro_declaration_function; ...@@ -202,6 +202,8 @@ Lisp_Object Vmacro_declaration_function;
extern Lisp_Object Qrisky_local_variable; extern Lisp_Object Qrisky_local_variable;
extern Lisp_Object Qfunction;
static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN; static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN;
...@@ -539,7 +541,7 @@ usage: (setq [SYM VAL]...) */) ...@@ -539,7 +541,7 @@ usage: (setq [SYM VAL]...) */)
register Lisp_Object val, sym; register Lisp_Object val, sym;
struct gcpro gcpro1; struct gcpro gcpro1;
if (NILP(args)) if (NILP (args))
return Qnil; return Qnil;
args_left = args; args_left = args;
...@@ -564,6 +566,8 @@ usage: (quote ARG) */) ...@@ -564,6 +566,8 @@ usage: (quote ARG) */)
(args) (args)
Lisp_Object args; Lisp_Object args;
{ {
if (!NILP (Fcdr (args)))
xsignal2 (Qwrong_number_of_arguments, Qquote, Flength (args));
return Fcar (args); return Fcar (args);
} }
...@@ -575,6 +579,8 @@ usage: (function ARG) */) ...@@ -575,6 +579,8 @@ usage: (function ARG) */)
(args) (args)
Lisp_Object args; Lisp_Object args;
{ {
if (!NILP (Fcdr (args)))
xsignal2 (Qwrong_number_of_arguments, Qfunction, Flength (args));
return Fcar (args); return Fcar (args);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment