Mercurial > hg > xemacs-beta
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); |