diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-12 01:19:49 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-12 01:19:49 +0000 |
commit | d8c40b9f49836a0d8c28b49ff5346033c50e113d (patch) | |
tree | 35920f5d7debfed249a1e01ba3eebf8d9dc1bbc3 /libguile/eval.c | |
parent | 1c3e63f06d87913b08ced09d0db6196a2fde8143 (diff) | |
download | guile-d8c40b9f49836a0d8c28b49ff5346033c50e113d.tar.gz |
The struct data is now an array of scm_bits_t variables.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 68e30b4a1..c17e4787d 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -2299,8 +2299,8 @@ dispatch: if (SCM_NIMP (t.arg1)) do { - i += SCM_UNPACK ((SCM_STRUCT_DATA (scm_class_of (SCM_CAR (t.arg1)))) - [scm_si_hashsets + hashset]); + i += SCM_STRUCT_DATA (scm_class_of (SCM_CAR (t.arg1))) + [scm_si_hashsets + hashset]; t.arg1 = SCM_CDR (t.arg1); } while (--j && SCM_NIMP (t.arg1)); @@ -2344,15 +2344,15 @@ dispatch: case (SCM_ISYMNUM (SCM_IM_SLOT_REF)): x = SCM_CDR (x); t.arg1 = EVALCAR (x, env); - RETURN (SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CADR (x))]) + RETURN (SCM_PACK (SCM_STRUCT_DATA (t.arg1) [SCM_INUM (SCM_CADR (x))])) case (SCM_ISYMNUM (SCM_IM_SLOT_SET_X)): x = SCM_CDR (x); t.arg1 = EVALCAR (x, env); x = SCM_CDR (x); proc = SCM_CDR (x); - SCM_STRUCT_DATA (t.arg1)[SCM_INUM (SCM_CAR (x))] - = EVALCAR (proc, env); + SCM_STRUCT_DATA (t.arg1) [SCM_INUM (SCM_CAR (x))] + = SCM_UNPACK (EVALCAR (proc, env)); RETURN (SCM_UNSPECIFIED) case (SCM_ISYMNUM (SCM_IM_NIL_COND)): |