/[guile]/guile/guile-core/libguile/init.c
ViewVC logotype

Diff of /guile/guile-core/libguile/init.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.152 by rlb, Mon Apr 7 01:51:25 2003 UTC revision 1.153 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 39  Line 39 
39  #include "libguile/boolean.h"  #include "libguile/boolean.h"
40  #include "libguile/chars.h"  #include "libguile/chars.h"
41  #include "libguile/continuations.h"  #include "libguile/continuations.h"
 #ifdef DEBUG_EXTENSIONS  
42  #include "libguile/debug.h"  #include "libguile/debug.h"
 #endif  
43  #ifdef GUILE_DEBUG_MALLOC  #ifdef GUILE_DEBUG_MALLOC
44  #include "libguile/debug-malloc.h"  #include "libguile/debug-malloc.h"
45  #endif  #endif
# Line 139  restart_stack (void *base) Line 137  restart_stack (void *base)
137    scm_dynwinds = SCM_EOL;    scm_dynwinds = SCM_EOL;
138    SCM_DYNENV (scm_rootcont) = SCM_EOL;    SCM_DYNENV (scm_rootcont) = SCM_EOL;
139    SCM_THROW_VALUE (scm_rootcont) = SCM_EOL;    SCM_THROW_VALUE (scm_rootcont) = SCM_EOL;
 #ifdef DEBUG_EXTENSIONS  
140    SCM_DFRAME (scm_rootcont) = scm_last_debug_frame = 0;    SCM_DFRAME (scm_rootcont) = scm_last_debug_frame = 0;
 #endif  
141    SCM_BASE (scm_rootcont) = base;    SCM_BASE (scm_rootcont) = base;
142  }  }
143    
# Line 503  scm_init_guile_1 (SCM_STACKITEM *base) Line 499  scm_init_guile_1 (SCM_STACKITEM *base)
499    scm_init_socket ();    scm_init_socket ();
500  #endif  #endif
501    scm_init_sort ();    scm_init_sort ();
 #ifdef DEBUG_EXTENSIONS  
502    scm_init_srcprop ();    scm_init_srcprop ();
 #endif  
503    scm_init_stackchk ();    scm_init_stackchk ();
504    scm_init_strings ();    scm_init_strings ();
505    scm_init_struct ();   /* Requires strings */    scm_init_struct ();   /* Requires strings */
# Line 527  scm_init_guile_1 (SCM_STACKITEM *base) Line 521  scm_init_guile_1 (SCM_STACKITEM *base)
521    scm_init_vports ();    scm_init_vports ();
522    scm_init_eval ();    scm_init_eval ();
523    scm_init_evalext ();    scm_init_evalext ();
 #ifdef DEBUG_EXTENSIONS  
524    scm_init_debug ();    /* Requires macro smobs */    scm_init_debug ();    /* Requires macro smobs */
 #endif  
525    scm_init_random ();    scm_init_random ();
526  #if SCM_HAVE_ARRAYS  #if SCM_HAVE_ARRAYS
527    scm_init_ramap ();    scm_init_ramap ();
# Line 538  scm_init_guile_1 (SCM_STACKITEM *base) Line 530  scm_init_guile_1 (SCM_STACKITEM *base)
530    scm_init_simpos ();    scm_init_simpos ();
531    scm_init_load_path ();    scm_init_load_path ();
532    scm_init_standard_ports ();  /* Requires fports */    scm_init_standard_ports ();  /* Requires fports */
 #ifdef DYNAMIC_LINKING  
533    scm_init_dynamic_linking ();    scm_init_dynamic_linking ();
 #endif  
534  #if SCM_ENABLE_ELISP  #if SCM_ENABLE_ELISP
535    scm_init_lang ();    scm_init_lang ();
536  #endif /* SCM_ENABLE_ELISP */  #endif /* SCM_ENABLE_ELISP */

Legend:
Removed from v.1.152  
changed lines
  Added in v.1.153

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26