summaryrefslogtreecommitdiff
path: root/libguile/smob.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/smob.c')
-rw-r--r--libguile/smob.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/smob.c b/libguile/smob.c
index f7d00e910..6cd557cc7 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -88,9 +88,11 @@ scm_mark0 (SCM ptr)
}
SCM
+/* Dirk::FIXME: The name markcdr is misleading, since the term cdr should only
+ be used for real pairs. */
scm_markcdr (SCM ptr)
{
- return SCM_CDR (ptr);
+ return SCM_CELL_OBJECT_1 (ptr);
}
/* {Free}