Mercurial > hg > xemacs-beta

comparison src/eval.c @ 2238:e9aa19426bc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-08-26 20:53:06 by james] Remove unused variable 'orig_fun'.
author james
date Thu, 26 Aug 2004 20:53:08 +0000
parents f4702ef3fd36
children 5753220a0f80
comparison
equal deleted inserted replaced
2237:beb716b23f5b 2238:e9aa19426bc9
3760 Lisp_Object fun; 3760 Lisp_Object fun;
3761 Lisp_Object val; 3761 Lisp_Object val;
3762 struct backtrace backtrace; 3762 struct backtrace backtrace;
3763 int fun_nargs = nargs - 1; 3763 int fun_nargs = nargs - 1;
3764 Lisp_Object *fun_args = args + 1; 3764 Lisp_Object *fun_args = args + 1;
3765 Lisp_Object orig_fun;
3766 3765
3767 /* QUIT will check for proper redisplay wrapping */ 3766 /* QUIT will check for proper redisplay wrapping */
3768 3767
3769 QUIT; 3768 QUIT;
3770 3769
3807 backtrace.function_being_called = 0; 3806 backtrace.function_being_called = 0;
3808 PUSH_BACKTRACE (backtrace); 3807 PUSH_BACKTRACE (backtrace);
3809 3808
3810 if (debug_on_next_call) 3809 if (debug_on_next_call)
3811 do_debug_on_call (Qlambda); 3810 do_debug_on_call (Qlambda);
3812
3813 orig_fun = args[0];
3814 3811
3815 retry: 3812 retry:
3816 3813
3817 fun = args[0]; 3814 fun = args[0];
3818 3815