mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

tweaks to default program printer

Browse source 
* libguile/programs.c (scm_i_program_print): Instead of printing the
  address of the objcode, print the address of the program itself. Also
  for continuations.
This commit is contained in:
Andy Wingo 2010-02-22 22:41:34 +01:00
parent 2d026f04cc
commit 76e3816281
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/programs.c
View file

@ -83,13 +83,13 @@ scm_i_program_print (SCM program, SCM port, scm_print_state *pstate)
{
/* twingliness */
scm_puts ("#<continuation ", port);
scm_uintprint (SCM_CELL_WORD_1 (program), 16, port);
scm_uintprint (SCM_UNPACK (program), 16, port);
scm_putc ('>', port);
}
else if (scm_is_false (write_program) || print_error)
{
scm_puts ("#<program ", port);
scm_uintprint (SCM_CELL_WORD_1 (program), 16, port);
scm_uintprint (SCM_UNPACK (program), 16, port);
scm_putc ('>', port);
}
else