mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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 */ /* twingliness */
scm_puts ("#<continuation ", port); scm_puts ("#<continuation ", port);
scm_uintprint (SCM_CELL_WORD_1 (program), 16, port); scm_uintprint (SCM_UNPACK (program), 16, port);
scm_putc ('>', port); scm_putc ('>', port);
} }
else if (scm_is_false (write_program) || print_error) else if (scm_is_false (write_program) || print_error)
{ {
scm_puts ("#<program ", port); scm_puts ("#<program ", port);
scm_uintprint (SCM_CELL_WORD_1 (program), 16, port); scm_uintprint (SCM_UNPACK (program), 16, port);
scm_putc ('>', port); scm_putc ('>', port);
} }
else else