8cb1a96ede
Taken from: https://github.com/freebsd/freebsd-ports.git Commit id: 5070672073b68be364139bc6b3a89100bd17d331
16 lines
575 B
C
16 lines
575 B
C
--- object.h.orig 2009-03-03 17:43:57.000000000 +0200
|
|
+++ object.h 2009-03-03 17:54:10.000000000 +0200
|
|
@@ -51,10 +51,13 @@
|
|
|
|
#define SCM_OBJECT_VAL(x) ((SCM_ObjVal*)(SCM_CAR(x)))
|
|
#define SCM_OBJECT_DEF(x) SCM_CDR(x)
|
|
+#define SCM_OBJECT_VAL_SET(x,v) (SCM_CAR(x)=(v))
|
|
+#define SCM_OBJECT_DEF_SET(x,v) (SCM_CDR(x)=(v))
|
|
|
|
/*** Accessing objdef fields */
|
|
|
|
#define SCM_OBJDEF_AUX(x) ((SCM_ObjDefAux*)(SCM_AUX(x)))
|
|
+#define SCM_OBJDEF_AUX_SET SCM_AUX_SET
|
|
#define SCM_OBJDEF_NDEFS(x) SCM_OBJDEF_AUX(x)->ndefs
|
|
#define SCM_OBJDEF_DEF(x,i) (SCM_OBJDEF_AUX(x)->def + i)
|
|
|