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

* init.c, goops.c: Reverted change of 2001-03-29. (The goops

Browse source 
module should be registered in order to work for an application
which uses libguile statically linked.)
This commit is contained in:
Mikael Djurfeldt 2001-04-11 02:09:35 +00:00
parent f2e61fc1c5
commit 508ded1cdb
3 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-04-10 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* init.c, goops.c: Reverted change of 2001-03-29. (The goops
module should be registered in order to work for an application
which uses libguile statically linked.)
2001-04-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.[ch] (scm_num2long, scm_num2long_long,

4
libguile/goops.c
View file

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

5
libguile/init.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999, 2000 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,1999, 2000, 2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -79,6 +79,7 @@
#include "libguile/fports.h"
#include "libguile/gc.h"
#include "libguile/gdbint.h"
#include "libguile/goops.h"
#include "libguile/gsubr.h"
#include "libguile/hash.h"
#include "libguile/hashtab.h"
@ -573,6 +574,8 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_init_dynamic_linking ();
scm_init_lang ();
scm_init_script ();
scm_init_oop_goops_goopscore_module ();
scm_initialized_p = 1;