summaryrefslogtreecommitdiff
path: root/libguile/root.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
commit54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch)
treeca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/root.h
parentabeed821987ec1476e6a7836f1ed8ba8a6185959 (diff)
downloadguile-54778cd31205b1f50397cf7bf92f7d8b37c99870.tar.gz
Lots of fixes to make guile (at some time) compile with strict typing.
Diffstat (limited to 'libguile/root.h')
-rw-r--r--libguile/root.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/root.h b/libguile/root.h
index 682cacae5..02929b7ba 100644
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -86,7 +86,7 @@ extern SCM scm_sys_protects[];
extern long scm_tc16_root;
#define SCM_ROOTP(obj) (SCM_NIMP(obj) && (scm_tc16_root == SCM_TYP16 (obj)))
-#define SCM_ROOT_STATE(root) ((scm_root_state *) SCM_CDR (root))
+#define SCM_ROOT_STATE(root) ((scm_root_state *) SCM_CELL_WORD_1 (root))
typedef struct scm_root_state
{