summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-03-07 22:19:13 +0100
committerAndy Wingo <wingo@pobox.com>2010-03-09 21:32:56 +0100
commit5c606217a4bdd2e918d224b12fe576eff4e561c7 (patch)
tree8543c3b68dabf27c755a42f499b6c5b3be9cb49d
parent5af3378aab5b32bd82bd93d9a789c97e553a1356 (diff)
downloadguile-5c606217a4bdd2e918d224b12fe576eff4e561c7.tar.gz
fix continuation printing bug
* libguile/programs.c (scm_i_program_print): Fix bug printing continuations.
-rw-r--r--libguile/programs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index c80648e76..e777e56f2 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -86,7 +86,7 @@ scm_i_program_print (SCM program, SCM port, scm_print_state *pstate)
scm_uintprint (SCM_UNPACK (program), 16, port);
scm_putc ('>', port);
}
- if (SCM_PROGRAM_IS_PARTIAL_CONTINUATION (program))
+ else if (SCM_PROGRAM_IS_PARTIAL_CONTINUATION (program))
{
/* twingliness */
scm_puts ("#<partial-continuation ", port);