From 76e3816281cf6c406ef6f01907ce29401c8ff455 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 22 Feb 2010 22:41:34 +0100
Subject: [PATCH] tweaks to default program printer

* 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.
---
 libguile/programs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/programs.c b/libguile/programs.c
index ac35e3c10..8ce9fe147 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -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