Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
525 UNBIND_TO_GCPRO (speccount, value); 525 UNBIND_TO_GCPRO (speccount, value);
526 return value; 526 return value;
527 } 527 }
528 528
529 wrong_number_of_arguments: 529 wrong_number_of_arguments:
530 /* The actual printed compiled_function object is incomprehensible.
531 Check the backtrace to see if we can get a more meaningful symbol. */
532 if (EQ (fun, indirect_function (*backtrace_list->function, 0)))
533 fun = *backtrace_list->function;
530 return Fsignal (Qwrong_number_of_arguments, list2 (fun, make_int (nargs))); 534 return Fsignal (Qwrong_number_of_arguments, list2 (fun, make_int (nargs)));
531 } 535 }
532 536
533 537
534 /* Read next uint8 from the instruction stream. */ 538 /* Read next uint8 from the instruction stream. */