diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:41 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-20 17:09:41 +0000 |
commit | 4e1caa796c83e3f9b26ed9348bc5af61761f0599 (patch) | |
tree | 1591f89a4d6fd0b28bd0eb6e18e5898bcc037581 /libguile/init.c | |
parent | 4037ac5ffe5d4c5a29edfdf9171c5e7ccf37ec31 (diff) | |
download | guile-4e1caa796c83e3f9b26ed9348bc5af61761f0599.tar.gz |
* init.c (scm_restart_stack, scm_boot_guile): Added initialization
of SCM_DFRAME. Added calls to scm_init_{debug,options,srcprop}.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/libguile/init.c b/libguile/init.c index 6b7d2c55e..7335053ca 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -62,7 +62,7 @@ scm_start_stack (base, in, out, err) scm_stack_base = base; - /* Create standar ports from stdio files, if requested to do so. + /* Create standard ports from stdio files, if requested to do so. */ if (!in) @@ -150,6 +150,9 @@ scm_restart_stack (base) scm_dynwinds = SCM_EOL; SCM_DYNENV (scm_rootcont) = SCM_EOL; SCM_THROW_VALUE (scm_rootcont) = SCM_EOL; +#ifdef DEBUG_EXTENSIONS + SCM_DFRAME (scm_rootcont) = last_debug_info_frame = 0; +#endif SCM_BASE (scm_rootcont) = base; scm_continuation_stack_ptr = SCM_MAKINUM (0); } @@ -289,6 +292,9 @@ scm_boot_guile (result, argc, argv, in, out, err, init_func, boot_cmd) scm_init_boolean (); scm_init_chars (); scm_init_continuations (); +#ifdef DEBUG_EXTENSIONS + scm_init_debug (); +#endif scm_init_dynwind (); scm_init_eq (); scm_init_error (); @@ -305,6 +311,11 @@ scm_boot_guile (result, argc, argv, in, out, err, init_func, boot_cmd) scm_init_mallocs (); scm_init_numbers (); scm_init_objprop (); +#if DEBUG_EXTENSIONS + /* Excluding this until it's really needed makes the binary + * smaller after linking. */ + scm_init_options (); +#endif scm_init_pairs (); scm_init_ports (); scm_init_posix (); @@ -312,6 +323,9 @@ scm_boot_guile (result, argc, argv, in, out, err, init_func, boot_cmd) scm_init_procprop (); scm_init_scmsigs (); scm_init_socket (); +#ifdef DEBUG_EXTENSIONS + scm_init_srcprop (); +#endif scm_init_stackchk (); scm_init_strports (); scm_init_struct (); |