summaryrefslogtreecommitdiff
path: root/libguile/print.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.h')
-rw-r--r--libguile/print.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/print.h b/libguile/print.h
index 9271c9235..9bbf16774 100644
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -49,8 +49,8 @@ do { \
#define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
#define SCM_PORT_WITH_PS_P(p) SCM_TYP16_PREDICATE (scm_tc16_port_with_ps, p)
-#define SCM_PORT_WITH_PS_PORT(p) SCM_CAR (SCM_CELL_OBJECT_1 (p))
-#define SCM_PORT_WITH_PS_PS(p) SCM_CDR (SCM_CELL_OBJECT_1 (p))
+#define SCM_PORT_WITH_PS_PORT(p) SCM_CELL_OBJECT_1 (p)
+#define SCM_PORT_WITH_PS_PS(p) SCM_CELL_OBJECT_2 (p)
#define SCM_COERCE_OUTPORT(p) \
(SCM_PORT_WITH_PS_P (p) ? SCM_PORT_WITH_PS_PORT (p) : p)