comparison src/print.c @ 233:52952cbfc5b5 r20-5b15

Import from CVS: tag r20-5b15
author cvs
date Mon, 13 Aug 2007 10:14:14 +0200
parents 2c611d1463a6
children 51092a27c943
comparison
equal deleted inserted replaced
232:aa6545ea0638 233:52952cbfc5b5
1600 stderr_out (", "); 1600 stderr_out (", ");
1601 fflush (stderr); 1601 fflush (stderr);
1602 } 1602 }
1603 if (COMPILED_FUNCTIONP (*bt->function)) 1603 if (COMPILED_FUNCTIONP (*bt->function))
1604 { 1604 {
1605 #if defined(COMPILED_FUNCTION_ANNOTATION_HACK)
1605 Lisp_Object ann = Fcompiled_function_annotation (*bt->function); 1606 Lisp_Object ann = Fcompiled_function_annotation (*bt->function);
1607 #else
1608 Lisp_Object ann = Qnil;
1609 #endif
1606 if (!NILP (ann)) 1610 if (!NILP (ann))
1607 { 1611 {
1608 stderr_out ("<compiled-function from "); 1612 stderr_out ("<compiled-function from ");
1609 fflush (stderr); 1613 fflush (stderr);
1610 debug_print_no_newline (ann); 1614 debug_print_no_newline (ann);