summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);