diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
commit | 54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch) | |
tree | ca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/root.h | |
parent | abeed821987ec1476e6a7836f1ed8ba8a6185959 (diff) | |
download | guile-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.h | 2 |
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 { |