summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-09-22 16:12:07 +0200
committerAndy Wingo <wingo@pobox.com>2017-09-22 16:12:07 +0200
commit84aa050f927d704344a7efca6b63607254e0b5b2 (patch)
tree9962b7b025b3a35de959116ad805fe8026367b20 /libguile/goops.c
parentc7c7588f2416624319be2a037056ba8bb1c054e7 (diff)
downloadguile-84aa050f927d704344a7efca6b63607254e0b5b2.tar.gz
Remove needless static variables from goops.c
* libguile/goops.c: Remove many static SCM variables that were not used on the C level, like class_protected for <protected-slot> and so on.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r--libguile/goops.c25
1 files changed, 2 insertions, 23 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index a158a1cab..77316cfce 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012,2013,2014,2015
+/* Copyright (C) 1998-2004,2008-2015,2017
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -96,7 +96,7 @@ static SCM class_primitive_generic;
static SCM class_vector, class_null;
static SCM class_integer, class_real, class_complex, class_fraction;
static SCM class_unknown;
-static SCM class_top, class_object, class_class;
+static SCM class_top, class_class;
static SCM class_applicable;
static SCM class_applicable_struct, class_applicable_struct_with_setter;
static SCM class_generic, class_generic_with_setter;
@@ -114,12 +114,6 @@ static SCM class_syntax;
static SCM class_atomic_box;
static SCM class_port, class_input_output_port;
static SCM class_input_port, class_output_port;
-static SCM class_foreign_slot;
-static SCM class_self, class_protected;
-static SCM class_hidden, class_opaque, class_read_only;
-static SCM class_protected_hidden, class_protected_opaque, class_protected_read_only;
-static SCM class_scm;
-static SCM class_int, class_float, class_double;
static SCM class_foreign;
static SCM class_hashtable;
@@ -956,21 +950,6 @@ SCM_DEFINE (scm_sys_goops_early_init, "%goops-early-init", 0, 0, 0,
class_class = scm_variable_ref (scm_c_lookup ("<class>"));
class_top = scm_variable_ref (scm_c_lookup ("<top>"));
- class_object = scm_variable_ref (scm_c_lookup ("<object>"));
-
- class_foreign_slot = scm_variable_ref (scm_c_lookup ("<foreign-slot>"));
- class_protected = scm_variable_ref (scm_c_lookup ("<protected-slot>"));
- class_hidden = scm_variable_ref (scm_c_lookup ("<hidden-slot>"));
- class_opaque = scm_variable_ref (scm_c_lookup ("<opaque-slot>"));
- class_read_only = scm_variable_ref (scm_c_lookup ("<read-only-slot>"));
- class_self = scm_variable_ref (scm_c_lookup ("<self-slot>"));
- class_protected_opaque = scm_variable_ref (scm_c_lookup ("<protected-opaque-slot>"));
- class_protected_hidden = scm_variable_ref (scm_c_lookup ("<protected-hidden-slot>"));
- class_protected_read_only = scm_variable_ref (scm_c_lookup ("<protected-read-only-slot>"));
- class_scm = scm_variable_ref (scm_c_lookup ("<scm-slot>"));
- class_int = scm_variable_ref (scm_c_lookup ("<int-slot>"));
- class_float = scm_variable_ref (scm_c_lookup ("<float-slot>"));
- class_double = scm_variable_ref (scm_c_lookup ("<double-slot>"));
/* Applicables */
class_procedure_class = scm_variable_ref (scm_c_lookup ("<procedure-class>"));