diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-22 10:27:36 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-22 10:27:36 +0000 |
| commit | 1ff2fa6e1a74119bd2d432980a673723444228e7 (patch) | |
| tree | 7465cf713f8dc78f6282aedadee46ffb53507452 /libguile/ramap.c | |
| parent | 6f29dc6d2f5837a612fe55afe995373d99c67d67 (diff) | |
| download | guile-1ff2fa6e1a74119bd2d432980a673723444228e7.tar.gz | |
Don't use SCM2PTR for non scheme values.
Diffstat (limited to 'libguile/ramap.c')
| -rw-r--r-- | libguile/ramap.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/ramap.c b/libguile/ramap.c index 8ab2bde4c..c186de153 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -1325,8 +1325,8 @@ ramap_rp (SCM ra0,SCM proc,SCM ras) of a cell as raw data. Further: How can we be sure that the values fit into an inum? */ - SCM n1 = SCM_MAKINUM (((long *) SCM2PTR (SCM_CDR (ra1)))[i1]); - SCM n2 = SCM_MAKINUM (((long *) SCM2PTR (SCM_CDR (ra2)))[i2]); + SCM n1 = SCM_MAKINUM (((long *) SCM_UNPACK (SCM_CDR (ra1)))[i1]); + SCM n2 = SCM_MAKINUM (((long *) SCM_UNPACK (SCM_CDR (ra2)))[i2]); if (SCM_FALSEP (SCM_SUBRF (proc) (n1, n2))); SCM_BITVEC_CLR (ra0, i0); } |