Use XCAR and XCDR instead of Fcar and Fcdr where possible.

[bpt/emacs.git] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 9da9ec0..f16fdc6 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2070,8 +2070,8 @@ eval_sub (Lisp_Object form)
        error ("Lisp nesting exceeds `max-lisp-eval-depth'");
     }
 
-  original_fun = Fcar (form);
-  original_args = Fcdr (form);
+  original_fun = XCAR (form);
+  original_args = XCDR (form);
 
   backtrace.next = backtrace_list;
   backtrace_list = &backtrace;