mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

fix

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-08-24 02:23:02 +00:00
parent 6822fe53c9
commit 52235e7173
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/print.c
View file

@ -693,10 +693,10 @@ scm_prin1 (exp, port, writingp)
/* If PORT is a print-state/port pair, use that. Else create a new
print-state. */
if (SCM_NIMP (port) && SCM_CONSP (port))
if (SCM_NIMP (port) && SCM_PORT_WITH_PS_P (port))
{
pstate_scm = SCM_CDR (port);
port = SCM_CAR (port);
pstate_scm = SCM_PORT_WITH_PS_PS (port);
port = SCM_PORT_WITH_PS_PORT (port);
}
else
{