summaryrefslogtreecommitdiff
path: root/src/programs.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-06 23:15:53 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-06 23:15:53 +0000
commit4bfb26f58fff7b0febef86cbbeb0cc537ccb5c20 (patch)
tree36a4ff323f8afd07841ad2e6b55507bd7e2dc51b /src/programs.c
parent15df344720ceb687d9d058d96acacc67627c5c02 (diff)
downloadguile-4bfb26f58fff7b0febef86cbbeb0cc537ccb5c20.tar.gz
*** empty log message ***
Diffstat (limited to 'src/programs.c')
-rw-r--r--src/programs.c14
1 files changed, 4 insertions, 10 deletions
diff --git a/src/programs.c b/src/programs.c
index d224524ca..406c00952 100644
--- a/src/programs.c
+++ b/src/programs.c
@@ -119,18 +119,12 @@ static int
program_print (SCM obj, SCM port, scm_print_state *pstate)
{
SCM name = scm_object_property (obj, scm_sym_name);
+ scm_puts ("#<program ", port);
if (SCM_FALSEP (name))
- {
- scm_puts ("#<program 0x", port);
- scm_intprint ((long) SCM_PROGRAM_BASE (obj), 16, port);
- scm_putc ('>', port);
- }
+ scm_intprint ((long) SCM_PROGRAM_BASE (obj), 16, port);
else
- {
- scm_puts ("#<program ", port);
- scm_display (name, port);
- scm_putc ('>', port);
- }
+ scm_display (name, port);
+ scm_putc ('>', port);
return 1;
}