/[guile]/guile/guile-core/libguile/print.c
ViewVC logotype

Diff of /guile/guile-core/libguile/print.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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);

Legend:
Removed from v.1.142  
changed lines
  Added in v.1.143

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26