Mercurial > hg > xemacs-beta

comparison src/eval.c @ 5143:186aebf7f6c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sat, 13 Mar 2010 11:38:54 -0600
parents f965e31a35f0
children 88bd4f3ef8e4
comparison
equal deleted inserted replaced
5140:e5380fdaf8f1 5143:186aebf7f6c6
453 (subr->max_args == UNEVALLED) ? "#<special-operator " : "#<subr "; 453 (subr->max_args == UNEVALLED) ? "#<special-operator " : "#<subr ";
454 const Ascbyte *name = subr_name (subr); 454 const Ascbyte *name = subr_name (subr);
455 const Ascbyte *trailer = subr->prompt ? " (interactive)>" : ">"; 455 const Ascbyte *trailer = subr->prompt ? " (interactive)>" : ">";
456 456
457 if (print_readably) 457 if (print_readably)
458 printing_unreadable_object ("%s%s%s", header, name, trailer); 458 printing_unreadable_object_fmt ("%s%s%s", header, name, trailer);
459 459
460 write_ascstring (printcharfun, header); 460 write_ascstring (printcharfun, header);
461 write_ascstring (printcharfun, name); 461 write_ascstring (printcharfun, name);
462 write_ascstring (printcharfun, trailer); 462 write_ascstring (printcharfun, trailer);
463 } 463 }
4603 Elemcount allocated_count = mv->allocated_count; 4603 Elemcount allocated_count = mv->allocated_count;
4604 Elemcount count = mv->count, index; 4604 Elemcount count = mv->count, index;
4605 4605
4606 if (print_readably) 4606 if (print_readably)
4607 { 4607 {
4608 printing_unreadable_object ("multiple values"); 4608 printing_unreadable_object_fmt ("multiple values");
4609 } 4609 }
4610 4610
4611 write_fmt_string (printcharfun, 4611 write_fmt_string (printcharfun,
4612 "#<INTERNAL OBJECT (XEmacs bug?) %d multiple values," 4612 "#<INTERNAL OBJECT (XEmacs bug?) %d multiple values,"
4613 " data (", count); 4613 " data (", count);