Commit 921baa95 authored by Juanma Barranquero's avatar Juanma Barranquero

(Fdefvar, Fdefconst, Feval, Ffuncall): Follow error conventions.

parent fdd6025e
...@@ -785,7 +785,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) ...@@ -785,7 +785,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
sym = Fcar (args); sym = Fcar (args);
tail = Fcdr (args); tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail)))) if (!NILP (Fcdr (Fcdr (tail))))
error ("too many arguments"); error ("Too many arguments");
tem = Fdefault_boundp (sym); tem = Fdefault_boundp (sym);
if (!NILP (tail)) if (!NILP (tail))
...@@ -845,7 +845,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */) ...@@ -845,7 +845,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */)
sym = Fcar (args); sym = Fcar (args);
if (!NILP (Fcdr (Fcdr (Fcdr (args))))) if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
error ("too many arguments"); error ("Too many arguments");
tem = Feval (Fcar (Fcdr (args))); tem = Feval (Fcar (Fcdr (args)));
if (!NILP (Vpurify_flag)) if (!NILP (Vpurify_flag))
...@@ -2037,7 +2037,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0, ...@@ -2037,7 +2037,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
if (max_lisp_eval_depth < 100) if (max_lisp_eval_depth < 100)
max_lisp_eval_depth = 100; max_lisp_eval_depth = 100;
if (lisp_eval_depth > max_lisp_eval_depth) if (lisp_eval_depth > max_lisp_eval_depth)
error ("Lisp nesting exceeds max-lisp-eval-depth"); error ("Lisp nesting exceeds `max-lisp-eval-depth'");
} }
original_fun = Fcar (form); original_fun = Fcar (form);
...@@ -2733,7 +2733,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */) ...@@ -2733,7 +2733,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
if (max_lisp_eval_depth < 100) if (max_lisp_eval_depth < 100)
max_lisp_eval_depth = 100; max_lisp_eval_depth = 100;
if (lisp_eval_depth > max_lisp_eval_depth) if (lisp_eval_depth > max_lisp_eval_depth)
error ("Lisp nesting exceeds max-lisp-eval-depth"); error ("Lisp nesting exceeds `max-lisp-eval-depth'");
} }
backtrace.next = backtrace_list; backtrace.next = backtrace_list;
......
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