mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Remove GOOPS random state

Browse source 
* libguile/goops.c: Remove GOOPS random state, now that there are no
  more hashsets.
This commit is contained in:
Andy Wingo 2015-01-07 16:31:56 -05:00
parent 2e0b69344b
commit 945652a87a
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/goops.c
View file

@ -109,7 +109,6 @@ SCM_VARIABLE (scm_var_make_extended_generic, "make-extended-generic");
#define SCM_GOOPS_UNBOUNDP(x) (scm_is_eq (x, SCM_GOOPS_UNBOUND))
static int goops_loaded_p = 0;
static scm_t_rstate *goops_rstate;
/* These variables are filled in by the object system when loaded. */
static SCM class_boolean, class_char, class_pair;
@ -1707,8 +1706,6 @@ scm_init_goops_builtins (void *unused)
{
scm_module_goops = scm_current_module ();
goops_rstate = scm_c_make_rstate ("GOOPS", 5);
hell = scm_calloc (hell_size * sizeof (*hell));
hell_mutex = scm_make_mutex ();