mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

* ports.c (scm_output_port_p): Bugfix: Coerce output port before

Browse source 
testing (otherwise the port-print-state trick won't be transparent
to the user; one example where this caused problems was in the
(ice-9 format) module).
This commit is contained in:
Mikael Djurfeldt 1999-08-24 02:11:17 +00:00
parent 55d5475044
commit 4a94d8ca0b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ports.c
View file

@ -621,7 +621,7 @@ scm_input_port_p (x)
SCM x;
{
if (SCM_IMP (x))
return SCM_BOOL_F;
return SCM_BOOL_F;
return SCM_INPORTP (x) ? SCM_BOOL_T : SCM_BOOL_F;
}
@ -632,7 +632,9 @@ scm_output_port_p (x)
SCM x;
{
if (SCM_IMP (x))
return SCM_BOOL_F;
return SCM_BOOL_F;
if (SCM_PORT_WITH_PS_P (x))
x = SCM_PORT_WITH_PS_PORT (x);
return SCM_OUTPORTP (x) ? SCM_BOOL_T : SCM_BOOL_F;
}