From: Han-Wen Nienhuys Date: Wed, 26 May 2004 21:15:30 +0000 (+0000) Subject: (SCM_CELL_OBJECT_LOC): use SCM_GC_CELL_OBJECT to prevent X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/141521ad8b1ea9d0338ca52a4c9392c40bd28874 (SCM_CELL_OBJECT_LOC): use SCM_GC_CELL_OBJECT to prevent compound expression as lvalue errors. --- diff --git a/libguile/ChangeLog b/libguile/ChangeLog index e5211a0d7..172e1f662 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2004-05-26 Han-Wen Nienhuys + + * gc.h (SCM_CELL_OBJECT_LOC): use SCM_GC_CELL_OBJECT to prevent + compound expression as lvalue errors. + 2004-05-24 Marius Vollmer * dynwind.c (winder_mark): Use SCM_PACK to correctly convert the diff --git a/libguile/gc.h b/libguile/gc.h index 34a7e7bf7..0dc40f618 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -214,7 +214,7 @@ typedef unsigned long scm_t_c_bvec_long; (SCM_GC_SET_CELL_OBJECT ((x), 1, (v))) -#define SCM_CELL_OBJECT_LOC(x, n) (&SCM_CELL_OBJECT ((x), (n))) +#define SCM_CELL_OBJECT_LOC(x, n) (SCM_VALIDATE_CELL((x), &SCM_GC_CELL_OBJECT ((x), (n)))) #define SCM_CARLOC(x) (SCM_CELL_OBJECT_LOC ((x), 0)) #define SCM_CDRLOC(x) (SCM_CELL_OBJECT_LOC ((x), 1))