1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

(SCM_VARIABLE_LOC): Use SCM_CELL_OBJECT_LOC instead of casting

SCM_CELL_WORD_LOC.
This commit is contained in:
Marius Vollmer 2004-05-06 16:41:47 +00:00
parent 37fc18ae73
commit f7e69e2094

View file

@ -32,7 +32,7 @@
#define SCM_VARIABLEP(X) (!SCM_IMP (X) && SCM_TYP7(X) == scm_tc7_variable)
#define SCM_VARIABLE_REF(V) SCM_CELL_OBJECT_1 (V)
#define SCM_VARIABLE_SET(V, X) SCM_SET_CELL_OBJECT_1 (V, X)
#define SCM_VARIABLE_LOC(V) ((SCM *) SCM_CELL_WORD_LOC ((V), 1))
#define SCM_VARIABLE_LOC(V) (SCM_CELL_OBJECT_LOC ((V), 1))