mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +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 /* If PORT is a print-state/port pair, use that. Else create a new
print-state. */ print-state. */
if (SCM_NIMP (port) && SCM_CONSP (port)) if (SCM_NIMP (port) && SCM_PORT_WITH_PS_P (port))
{ {
pstate_scm = SCM_CDR (port); pstate_scm = SCM_PORT_WITH_PS_PS (port);
port = SCM_CAR (port); port = SCM_PORT_WITH_PS_PORT (port);
} }
else else
{ {