diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/print.c b/libguile/print.c index 5222da027..77782aaf3 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1090,7 +1090,7 @@ SCM_DEFINE (scm_get_print_state, "get-print-state", 1, 0, 0, { if (SCM_PORT_WITH_PS_P (port)) return SCM_PORT_WITH_PS_PS (port); - if (SCM_OUTPORTP (port)) + if (SCM_OUTPUT_PORT_P (port)) return SCM_BOOL_F; RETURN_SCM_WTA (1,port); } |