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

New files: dump.c, dump.h.

Browse source
This commit is contained in:
Keisuke Nishida 2001-02-03 04:59:16 +00:00
parent 00ffa0e7d6
commit 03416a991e
8 changed files with 1009 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/init.c
View file

@ -66,6 +66,7 @@
#ifdef GUILE_DEBUG_MALLOC
#include "libguile/debug-malloc.h"
#endif
#include "libguile/dump.h"
#include "libguile/dynl.h"
#include "libguile/dynwind.h"
#include "libguile/environments.h"
@ -197,7 +198,7 @@ start_stack (void *base)
/* Create the look-aside stack for variables that are shared between
* captured continuations.
*/
scm_continuation_stack = scm_make_vector (SCM_MAKINUM (512), SCM_UNDEFINED);
scm_continuation_stack = scm_c_make_vector (512, SCM_UNDEFINED);
/* The continuation stack is further initialized by restart_stack. */
/* The remainder of stack initialization is factored out to another
@ -493,6 +494,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
#ifdef GUILE_DEBUG_MALLOC
scm_init_debug_malloc ();
#endif
scm_init_dump ();
scm_init_dynwind ();
scm_init_eq ();
scm_init_error ();