diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-24 02:23:02 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-24 02:23:02 +0000 |
commit | 52235e71737b47b648b5511396073f023d08a78e (patch) | |
tree | 96583e2d0b1335f0b07b73ce3d5da885b85bc43c | |
parent | 6822fe53c9c4d68d7dcece41a412c94e6d73723f (diff) | |
download | guile-52235e71737b47b648b5511396073f023d08a78e.tar.gz |
fix
-rw-r--r-- | libguile/print.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/print.c b/libguile/print.c index 00b4e3ab3..d90c77f3e 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -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 { |