mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* goops.c, goops.h (scm_init_oop_goops_goopscore_module): Deprecated.

Browse source 
* init.c (scm_init_guile_1): Don't init goopscore module.
This commit is contained in:
Keisuke Nishida 2001-03-30 02:50:38 +00:00
parent 16c634ec15
commit 1b27e91a9b
4 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-03-29 Keisuke Nishida <kxn30@po.cwru.edu>
* goops.c, goops.h (scm_init_oop_goops_goopscore_module): Deprecated.
* init.c (scm_init_guile_1): Don't init goopscore module.
2001-03-27 Marius Vollmer <mvo@zagadka.ping.de> 2001-03-27 Marius Vollmer <mvo@zagadka.ping.de>
* eval.c (SCM_APPLY): Check that arg1 is bound for scm_tc7_cxr. * eval.c (SCM_APPLY): Check that arg1 is bound for scm_tc7_cxr.

4
libguile/goops.c
View file

@ -2694,12 +2694,16 @@ scm_init_goops (void)
scm_set_current_module (old_module); scm_set_current_module (old_module);
} }
#if (SCM_DEBUG_DEPRECATED == 0)
void void
scm_init_oop_goops_goopscore_module () scm_init_oop_goops_goopscore_module ()
{ {
scm_register_module_xxx ("oop goops goopscore", (void *) scm_init_goops); scm_register_module_xxx ("oop goops goopscore", (void *) scm_init_goops);
} }
#endif /* (SCM_DEBUG_DEPRECATED == 0) */
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

2
libguile/goops.h
View file

@ -237,7 +237,9 @@ SCM scm_m_atdispatch (SCM xorig, SCM env);
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG
SCM scm_pure_generic_p (SCM obj); SCM scm_pure_generic_p (SCM obj);
#endif #endif
#if (SCM_DEBUG_DEPRECATED == 0)
extern void scm_init_oop_goops_goopscore_module (void); extern void scm_init_oop_goops_goopscore_module (void);
#endif /* (SCM_DEBUG_DEPRECATED == 0) */
SCM scm_sys_compute_slots (SCM c); SCM scm_sys_compute_slots (SCM c);
SCM scm_i_get_keyword (SCM key, SCM l, int len, SCM default_value, const char *subr); SCM scm_i_get_keyword (SCM key, SCM l, int len, SCM default_value, const char *subr);

3
libguile/init.c
View file

@ -79,7 +79,6 @@
#include "libguile/fports.h" #include "libguile/fports.h"
#include "libguile/gc.h" #include "libguile/gc.h"
#include "libguile/gdbint.h" #include "libguile/gdbint.h"
#include "libguile/goops.h"
#include "libguile/gsubr.h" #include "libguile/gsubr.h"
#include "libguile/hash.h" #include "libguile/hash.h"
#include "libguile/hashtab.h" #include "libguile/hashtab.h"
@ -575,8 +574,6 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_init_lang (); scm_init_lang ();
scm_init_script (); scm_init_script ();
scm_init_oop_goops_goopscore_module ();
scm_initialized_p = 1; scm_initialized_p = 1;
scm_block_gc = 0; /* permit the gc to run */ scm_block_gc = 0; /* permit the gc to run */