diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-10 23:26:41 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:01 +0100 |
commit | f6088819c8b010fc20811131f8fce0dd67a6bf74 (patch) | |
tree | c3e95df54c00b918afa60694f0d12c4a6a53b43f | |
parent | 5a6165db6e32f7d54db39d9001add11a2f97ff5a (diff) | |
download | guile-f6088819c8b010fc20811131f8fce0dd67a6bf74.tar.gz |
Minor goops.c tidying
* libguile/goops.c: Reorder static variables. Remove unused
sym_procedure.
-rw-r--r-- | libguile/goops.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 5f9fcac9b..d722e0dde 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -55,6 +55,9 @@ #define SCM_OUT_PCLASS_INDEX SCM_I_MAX_PORT_TYPE_COUNT #define SCM_INOUT_PCLASS_INDEX (2 * SCM_I_MAX_PORT_TYPE_COUNT) +#define SCM_GOOPS_UNBOUND SCM_UNBOUND +#define SCM_GOOPS_UNBOUNDP(x) (scm_is_eq (x, SCM_GOOPS_UNBOUND)) + /* Objects have identity, so references to classes and instances are by value, not by reference. Redefinition of a class or modification of an instance causes in-place update; you can think of GOOPS as @@ -64,6 +67,8 @@ References to ordinary procedures is by reference (by variable), though, as in the rest of Guile. */ +static int goops_loaded_p = 0; + static SCM var_make_standard_class = SCM_BOOL_F; static SCM var_change_class = SCM_BOOL_F; static SCM var_make = SCM_BOOL_F; @@ -90,11 +95,6 @@ static SCM var_slot_set_x = SCM_BOOL_F; static SCM var_slot_bound_p = SCM_BOOL_F; static SCM var_slot_exists_p = SCM_BOOL_F; -#define SCM_GOOPS_UNBOUND SCM_UNBOUND -#define SCM_GOOPS_UNBOUNDP(x) (scm_is_eq (x, SCM_GOOPS_UNBOUND)) - -static int goops_loaded_p = 0; - /* These variables are filled in by the object system when loaded. */ static SCM class_boolean, class_char, class_pair; static SCM class_procedure, class_string, class_symbol; @@ -503,8 +503,6 @@ scm_is_method (SCM x) * ******************************************************************************/ -SCM_SYMBOL (sym_procedure, "procedure"); - SCM scm_class_name (SCM obj) { |