diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-06 23:15:53 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-06 23:15:53 +0000 |
commit | 4bfb26f58fff7b0febef86cbbeb0cc537ccb5c20 (patch) | |
tree | 36a4ff323f8afd07841ad2e6b55507bd7e2dc51b /src/programs.c | |
parent | 15df344720ceb687d9d058d96acacc67627c5c02 (diff) | |
download | guile-4bfb26f58fff7b0febef86cbbeb0cc537ccb5c20.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/programs.c')
-rw-r--r-- | src/programs.c | 14 |
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; } |