summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-09-07 17:05:32 +0200
committerAndy Wingo <wingo@pobox.com>2017-09-14 09:25:55 +0200
commit5c8bb1363032eb5797fbd232dec162350304a768 (patch)
tree94417eed052b946cf33817b9f50044b7dcec8431 /libguile
parent95f66b197cd756766a404a4f3495627fb6e196e9 (diff)
downloadguile-5c8bb1363032eb5797fbd232dec162350304a768.tar.gz
Change name of "static" flag indicating static slot allocation
* libguile/goops.h (SCM_VTABLE_FLAG_GOOPS_STATIC_SLOT_ALLOCATION): Rename from SCM_VTABLE_FLAG_GOOPS_STATIC. * libguile/goops.c (scm_init_goops_builtins): Adapt. * module/oop/goops.scm (class-has-statically-allocated-slots?): (initialize): Adapt.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/goops.c4
-rw-r--r--libguile/goops.h2
2 files changed, 3 insertions, 3 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index 5b24ee6bc..ed9dd1e60 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1024,8 +1024,8 @@ scm_init_goops_builtins (void *unused)
scm_from_int (SCM_VTABLE_FLAG_GOOPS_VALID));
scm_c_define ("vtable-flag-goops-slot",
scm_from_int (SCM_VTABLE_FLAG_GOOPS_SLOT));
- scm_c_define ("vtable-flag-goops-static",
- scm_from_int (SCM_VTABLE_FLAG_GOOPS_STATIC));
+ scm_c_define ("vtable-flag-goops-static-slot-allocation",
+ scm_from_int (SCM_VTABLE_FLAG_GOOPS_STATIC_SLOT_ALLOCATION));
}
void
diff --git a/libguile/goops.h b/libguile/goops.h
index 9dd1e1fdd..8565f4f16 100644
--- a/libguile/goops.h
+++ b/libguile/goops.h
@@ -43,7 +43,7 @@
#define SCM_VTABLE_FLAG_GOOPS_CLASS SCM_VTABLE_FLAG_GOOPS_0
#define SCM_VTABLE_FLAG_GOOPS_VALID SCM_VTABLE_FLAG_GOOPS_1
#define SCM_VTABLE_FLAG_GOOPS_SLOT SCM_VTABLE_FLAG_GOOPS_2
-#define SCM_VTABLE_FLAG_GOOPS_STATIC SCM_VTABLE_FLAG_GOOPS_3
+#define SCM_VTABLE_FLAG_GOOPS_STATIC_SLOT_ALLOCATION SCM_VTABLE_FLAG_GOOPS_3
#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
#define SCM_CLASS_FLAGS(class) (SCM_VTABLE_FLAGS (class))