Parent Directory | Revision Log | Patch
revision 1.142 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC | revision 1.143 by hanwen, Sun Aug 4 00:17:18 2002 UTC | |
---|---|---|
# | Line 739 scm_ipruk (char *hdr, SCM ptr, SCM port) | Line 739 scm_ipruk (char *hdr, SCM ptr, SCM port) |
739 | { | { |
740 | scm_puts ("#<unknown-", port); | scm_puts ("#<unknown-", port); |
741 | scm_puts (hdr, port); | scm_puts (hdr, port); |
742 | if (scm_cellp (ptr)) | if (scm_in_heap_p (ptr)) |
743 | { | { |
744 | scm_puts (" (0x", port); | scm_puts (" (0x", port); |
745 | scm_intprint (SCM_CELL_WORD_0 (ptr), 16, port); | scm_intprint (SCM_CELL_WORD_0 (ptr), 16, port); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |